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James and Imogene Chance 


Why for adults only? Why not! It seems as though the electronic 
games of today are geared toward the young. There are not too 
many adults that will go to the corner arcade to play the latest video 
craze, so why not have some games that adults can relate to? Here 
they are! À collection of 33 programs, just for us adults! 

Each program marked with an asterisk in the Table of Contents 
contains a sound output routine (see Chapter 1). This sound output 
will never compare with that of arcade games, but it keeps your 
computer from being dead silent! This routine was written on and 
for a Radio Shack TRS-80 Model I Level Il computer system. With a 
little modification it will work on the Radio Shack ТК5-80 Model Ш 
Level II computer system. Apple users find a separate sound 
routine and accompanying explanation at the end of chapter one. 

If you have an ІВМ PC, you can skip the first chapter of this 
book entirely —the IBM is a born musician. IBM users will find 
sound (and honest-to-goodness music!) in programs besides those 
noted in the table of contents. Since the IBM PC doesn't require a 
machine language routine to create sound and music, adding them is 
easy. You may find yourself composing background music for every 
program in the book! 

All thirty-three programs in this book were written on and for 
the TRS-80 computers mentioned above, but notes on converting 
the programs for the IBM PC and APPLE II+ or Пе have been 
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included in Appendix C. Separate listings for the Apple and the IBM 
have been included for any programs which make extensive use of 
sound and/or graphics, as noted in the table of contents. The IBM 
programs were written with the color/graphics adapter in mind, but 
suggestions are included in Appendix C for using the programs with 
a monochrome screen. 

If you own a computer system different from those mentioned 
above, you can still enjoy this book. You should be familiar enough 
with BASIC to know which commands your computer uses, so that 
you can make any needed changes. Look at the different versions of 
the more complicated programs. Chances are, one of them will work 
on your computer with just a few changes. Graphics are the hardest, 
but since many of the programs use text screen characters, you 
should be able to adapt them. Look at the charts in Appendix D and 
visualize the graphics as described in the program; then adapt them 
to the commands your computer uses. 

Most of the programs require at least 16K (kilobytes) of ran- 
dom access memory, but some of the simpler ones use less. 

All programs were designed with care, and all have been 
completely debugged. With each program you'll find: 


A brief outline describing in short what the program is about; 

A flowchart to help you understand the program; 

A sample run to let you see what the program is actually going to do 
before you run it ; 

The program listing with ample REM statements in case you decide 
on making your own changes; 

A list of variables and strings and what each perform within the 
program; 

Line explanations indicating line-by-line what the program is doing 
and what steps each line is performing. 


Most of the programs can handle several different players. 
Some allow up to 10 people to play at once. One program, in the final 
chapter can handle 15 different players at once! 

The final chapter of the book is devoted to parties or friendly 
get-togethers. Here you'll find six fast action games. If you decide 
to bet real money, you can be assured that the computer will keep 
track of each cent. All games within this chapter are fair, meaning 
that the computer will do no cheating, no one sided favors to keep 
the same person winning and no printing of false amounts. Of 
course, all of the programs in the book are like that, except for one. 


So sit back, relax, and enjoy! You do not have to hide this book 
from your ишен. ib contains по adult situations Oi гой! 


language—just lots of action! 


The sound routines in this chapter are used to enhance your enjoy- 
ment of a number of the game programs in the book. Feel free to use 
the techniques you learn here to introduce sound into your own 
programs. 


THE SOUND ROUTINE FOR THE TRS-80 


There are two ways you can use the sound routine described in 
this section. You could make a small driver program and place it on a 
tape different from your program tapes. You could also make a 
driver program by creating a machine language tape, using the 
TBUG program or the EDITOR/ASSEMBLER program available 
at your local Radio Shack store. 

If you plan to use sound routines with your TRS-80, you'll need 
a small amplifier/speaker. Radio Shack's stock number 277-1008 
will meet your requirements. If you use TBUG to make your own 
driver, use the filename SOUND as a title. When you enter it using 
the system command and the computer returns with ? press the 
break key and your driver will be ready. (Only those who own a 
TBUG program need concern themselves with these instructions.) 

The method I will discuss now requires nothing more than a 
blank tape. I will present separate routines for 16K, 32K, and 48K 
systems. (I will give the routine for 4K at the end of this chapter.) 
Each routine is a short program in itself and as stated, should be 
kept on a separate tape. 


16K — ANSWER MEM SIZE? 31231 

10 FUR 1931732 TO 31Z68 

20 READ AiPOKE I,A 

30 NEXT 

40 POKE 16526,0:POKE 16527,122 

30 DATA 221,33,33,122,221,70,0,0,1 
60 DATA 37,122,221,70,1,62,1,211,255 
70 DATA 16,254,221,70,1,62,2,211,255 


S0 DATA 16,254,13,194,11,122,30,10,0,201 


32K —— ANSWER MEM SIZE? 47615 

10 FOR 1=47616 TO 47652 

20 READ AiPOKE I,A 

30 NEXT 

40 POKE 16526,0:РОКЕ 16527,186 

30 DATA 221,33,33,186,221,70,0,0,1 
60 DATA 37,185,221,70,1,62,1,211,255 
70 DATA 16,254,221,70,1,62,2,211,255 


80 DATA 16,254,13,194,11,186,30,10,0,201 


43K -- ANSWER MEM SIZE? 63999 
10 FOR 1244000 TO 44035 

20 READ АІРОКЕТ,А 

30 NEXT 

40 POKE 16526,0:POKE 15527,250 


50 DATA 221,33,33,250,221,70,0,0,1 


&0 DATA 37,250,221,70,1,62,1,211,255 
70 DATA 16,254,221,70,1,62,2,211,255 


50 DATA 16,254,13,194,11,250,30,10,0,201 


Remember, use only the program that fits your system's 
memory size. Be sure also that line 40 is used (initialization). This 
line is very important. You will have no sound output without it. 

Each of the programs that contain sound are written for a 16K 
system. If you have a 32K or 48K system, you will also have to 
change the variables for sound output. Turn to a program that 
contains sound output. You will find that the variable (for instance 
MC in line 370 in the Master Code program, or SS in line 295 in the 
Hold Time program) is set to 31266. For a 32K system, change the 
figure (and all others in the other programs) to 47650. For a 48K 
system change that figure to 64034. I designed the programs for a 
16K machine because I believe this is the size system most people 
buy. (I could be wrong!) If I had included figures for the other 
systems, it would have made the programs confusing. Just be sure 
to change these figures for a 32K or 48K and you'll encounter no 
problems. 

If you've created the sound program for your system, you are 
now ready to try some experiments with sound. Remove the plug 
that is marked AUX from your recorder and plug it into the small 
amplifier/speaker that I described earlier. (Be sure there is a fresh 
battery in it.) Turn it on to a moderate to low volume. 


10 REM EXPERIMENTS WITH SOUND 

20 N=10:A=31266 REM A=47450 FOR A 32K - 4264034 FOR A 48K 
30 POKE A,N 

40 XzUSR(OREM CALL ROUTINE 

20 FOR T21 TO ЗОІМЕХТІКЕМ PAUSE 

60 IF N2-255 THEN šO IREM 255 LIMIT FOR VARIABLE 

70 NzN*1;GOTO 30 


S0 END 


Now run the program. You should hear sounds coming from the 
amplifier /eneaker, Adinct the voluma on it if necessary, Tf vou do 
not have sound, recheck the driver (machine program) to see if you 
entered all figures correctly and make sure that the initialization 
(line 40) has been completed. If you are receiving sound, the pitch 
will continue to become lower as the variable N becomes higher. 
When N reaches 255, the program will end. Never use a number for 
N that is below 10 or greater than 255. 
For a dual output, add these lines to the program in residence: 


41 IF N<= 254 THEN POKE A,N-H : X = USR(0) 


Run the program with the above line, then add: 


42 POKE A,N-1 : X = USR(0) 


This time delete the pause loop, line 50, and run again. Any time you 
want to stop the program (if N<255) press the break key. For 
strange sounds, add these two lines and run the program. 


43 Q = RND(255):IF Q<10 THEN 43 
44 POKE A,Q : X = USR(0) 


After experimenting with the above, delete lines 41-80 and add 
the following: 


20 АФ-ІМКЕҮ% 

60 IP A$-"" THEN 30 

70 IF N?2295 THEN 90 

со N=N+1:GOTO 30 

70 END 

The complete program should look like this: 
10 REM EXPERIMENTS WITH SOUND 


20 N-101A-231266:REM A=47450 FOR 22K ~ A=64034 FOR 48K 


30 POKE A,N 


40 X-USR(OXREM CALL ROUTINE 
50 AS=INKEYS 


50 IF АФ-""ТНЕМ 30 


70 ТЕ N22255 THEN 90 
со N=N+1iGOTO 30 
70 END 


Now run the program above. Each time you press any key, the 
tone gets lower. After you've experimented with this program, type 
NEW and enter the following program: 


10 REM MAKE A TUNE 

20 DIM N(100y:REM FOR UP TO 100 NOTES 
30 REM WILL USE KEYS A,B,C,D,E,F,G 

40 A-101B-501C-801D-1001E-1501F 2200167225 
30 T=1;AA=312Z46¢REM A=47650 FOR 32K - A=64034 FOR 48K 
60 CLS‘PRINT"TO HEAR YOUR TUNE" 

70 PRINT"PRESS THE SPACE BAR." 

20 PRINT'START COMPOSING, USE THE" 

90 PRINT"LETTERS A,B,C,D,E,F,G" 

100 АФ-ІМКЕҮ% 

110 IF Ag="" THEN 100 

120 IF A$-" " THEN 310:REM SPACE BAR 

130 IF A$-"A" THEN 210 

140 IF A$-"B" THEN 220 

150 IF A$z"C" THEN Z30 

150 IF A$-"D" THEN 240 


170 IF A$-"E" THEN 250 


180 IF A$-"F" THEN 260 


190 IF A$-"G" THEN 270 


200 GOTO 100 

210 POKE AA, AIN(T)=A:GOTO 280 

220 POKE AA,BING)-BIGOTO 280 

230 POKE AA,CiN(O)SCIGOTO 280 

240 POKE AA,DIN(D)=D:iGOTO 280 

290 POKE AA,EINGO)-EIGOTO 280 

260 POKE AA,FIN(OD)-FIGOTO 280 

270 POKE AA,GIN(O)SG 

250 X-USRI(QXREM CALL ROUTINE 

290 IF 1>=100 THEN 310:1REM МО) FOR NOTES IN TUNE 
300 PRINT А% ІІ"! СОТО 100 

310 TZI-1i PRINT 

320 PRINT"SPEED OF PLAYBACK (FAST,MEDIUM,SLOW)" 
220 INPUT"1,2 OR 35ТТІТТ-ТТ%20 

340 FOR 1=1 TO ТИЕ N(T)=0 THEN 370 

350 POKE AA,NOXX-7USR(O) 

360 FOR Pz1 TO TTiNEXT РТ 

370 PRINT 

3580 PRINT'END OF YOUR TUNE." 


390 END 


Run the above program and compose different tunes. You may 
be able to tell from the tones that I am no musical expert! You can 
experiment with the constants at line 40, A-G, to come up with some 
tones of your own. Remember to keep these constants between 10 
and 255, 10 will be the highest tone you can achieve, and 255 will be 
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the lowest. Of course, you have all the numerals between 10 and 255 
to experiment with. The program lines are explained below. 

Line 20 dimensions the N array so that 100 notes can be placed 
into your tune. You can either increase or decrease this amount, 
depending on what you are planning to compose. 

Line 30 is a remark indicating which keys will be used. 

Line 40 defines the constants for the 7 different notes (A-G). 
You can change these to whatever you choose as long as the 
numbers are between 10 and 255. 

Line 50 sets or initializes the counter I and the poke location, 
AA. Always remember that these constants are geared to a 16K 
system, here, and throughout the book. If you have a 32K system, 
this constant will be 47650. If your system is a 48K system, the 
constant will be 64034. 

Lines 60-90 are simple print statements. 

Line 100 sets up the INKEY$ function for the keys that you will 
press. 

Line 110 causes the program to loop to line 100 until a key is 
pressed. 

Lines 120-190 identify the key that was pressed. Whenever 
you press the space bar, the computer assumes that all of your notes 
are in and the tune is replayed for you. Otherwise, the computer will 
only notice keys that are within the arguments and branch to the line 
specified when they are pressed. 

Line 200 loops back to line 100. This assures that the program 
will not fall, continue if any key other than those specified is 
pressed. 

Lines 210-270 poke the value of the constant for the key that 
was pressed into location AA. This value will then be placed into the 
subscripted variable N(I) for playback. The tune you enter will be 
played back exactly as you input it. 

Line 280 will call the sound routine so you'll hear the note 
(sound) that you have selected immediately. The letter X can be any 
other letter that you choose so long as it is not used anywhere else 
within a program ; that is, if you want you could use the letter 
Z:Z=USR(0) would be valid for the above program, but if you use 
A = USR(0), you would lose the constant you had for А and an error 
would occur in your program. 

Line 290 will test the amount of counter I. If it has reached 100, 
the limit for the number of notes, the program will branch to line 
310. 

Line 300 will print the key you have pressed (if valid), advance 
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the counter by 1, and return to line 100 for another key closure. 

Line 310 initializes the variable | to 1-1 tor the playback ot ай 
the notes you entered, provided that the space bar was pressed in 
line 120. 

Lines 320-330 ask you at what speed you want your tune 
replayed. The amount you enter, 1, 2, or 3, will be multiplied by 20 
and used in a for-next loop throughout the playback. You can ex- 
periment with different values of TT if you so choose. For example, 
TT=TT20 could be changed to TT - TT*10, for a faster playback. 

Lines 340-360 contain 2 loops: one for notes entered and the 
other for a pause during playback. The second statement in line 340 
will end the program if one of the notes is equal to 0 (zero). It’s 
unlikely that one would be, but the statement 15 there to be on the 
safe side. Line 350 then pokes the value that is in the appropriate 
location in the N(D array into location AA and calls the sound routine 
with X=USR(0). Line 360 forms the pause or delay loop used during 
playback, and also contains the next statement for the notes (D. 

Lines 370-390 terminate the program when all notes have been 
played back. 


From all these examples, you should have the general idea of 
how to use your sound routine. If not, you should review the 
material before you tackle writing programs that will include sound. 
If you plan to write your own programs with sound or to add sound to 
some that you now have, do not add the sound routine to a program 
that uses the CHR$(23) function (double size). Take my word for it, 
it will not work; you will receive nothing more than error messages. 

If you own a 4K system and you're still scratching your head 
wondering what the sounds are like, you're in luck! Here is the 
driver for the 4K system (LEVEL IT). Remember, the programs in 
this book are intended for machines with at least 16K of RAM. This 
4K driver doesn't mean you can enter and run the other programs. 


ANSWER MEM SIZE? 20223 

10 FOR 1220224 TO 20260 

20 READ А:РОКЕ I,A 

30 NEXT 

40 POKE 16526,0:POKE 16527,79 


30 DATA 221,23,33,79,221,70,0,0,1 
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60 DATA 37,79,221,70,1,62,1,211,255 

70 DATA 16,254,221 ,70,1,62,2,211,255 

80 DATA 16,254,13,194,11,79,30,10,0,201 

To receive sound POKE a numeral between 10 and 255 into 
location 20258 and CALL the routine. Example: 

100 А-20258 


110 POKE A,50:X=USR(0) 


Enter and run all of the above. You will hear a short beep from the 
amplifier/speaker. Remember that the address that you will poke a 
numeral into is 20258. Anytime you desire to hear a tone, use 
USR(0) (CALL, X= USR(0)). You can enter and run all of the short 
programs that are in this chapter on the 4K system. 

For all of the systems, remember to keep the driver that fits 
your machine RAM on a separate tape to use whenever you are both 
to use a sound output on a program and always answer MEM SIZE? 
with the correct constant when booting-up your system to protect 
the area where the sound routine is residing. Once loaded into 
memory, the driver will remain there until the power is turned off. It 
cannot be lost when you type NEW or enter a different program 
through BASIC. 

To use any of the programs that contain sound without the 
sound output, delete all of the U= USR(0) statements (machine 
language calls) from the program. 


SOUND ROUTINE FOR THE APPLE ТІ 


The following program for the Apple II computer was written 
and tested on a 48K system. To use it, you may either type it in at 
the beginning of each program using sound—a lot of work, but 
simpler at “run-time,” or save it on a disk to be loaded each time it 
is needed for a program. The Apple II versions of programs in this 
book contain the commands to load and "call" the routine with the 
assumption that you will have it saved on the same disk with your 
programs. 

To use the routine on your program disk, first type in the 
program below and run it. The program will take less than a minute 
to run. then type in the following command: BSAVE SOUND, 


A$300,L$1E and press the return key. The program will now be on 


LI 
umir nranram rhol, rane ta nan 
әсе pc (54444 CHAAR ж ALANA y Чи.) VANUS 


SOUND 

10 FOR I-768 TO 797 

20 READ A:POKE I,A 

30 NEXT 

40 DATA 0,0,0,172,1,3 

DU: DATA: 1745,1,3,173,2,3 

60 DATA 32,168,252,173,48,192 
70 DATA 232,208, 253,136,208, 238 


80 DATA 206,0,3,208, 230,96 


The SOUND program for the Apple II is based on material 
developed by Jesse Sturgis and is used by permission. 


PLEASE SELECT? 


Games of Skill and Logic 


The Course challenges you to react quickly in order to maneuver 
your vehicle safely down an ever-changing course. 

Words-Zit presents coded messages for you to decipher. The 
code is new each time you load the program. 

Math-a-Code gives you a chance to test your prowess in 
addition . . . but each digit is represented by a letter! 

Master Code is another code game, but this time each letteris 
represented by a different tone. 

Driver's Test allows you to test your reflexes and avoid 
collisions without risking the family car. 

What Is It? is a competitive game that tests your ability to 
guess words using clues that become progressively more specific. 
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THE COURSE 


You will be required to have top-notch driving abilities as you 
negotiate the 10 laps of this challenging course. Be careful not to 
make the slightest contact with the edge of the track because each 
time you do, it will count as a hit. You will control the vehicle with 
the left and right arrow keys. Note that the IBM version of this 
program is included in Appendix А. 


Sample Run 


>>> THE COURSE <<< 
REQUIRE INSTRUCTIONS? YES 


THE COURSE WILL REQUIRE THAT YOU 
USE TOP NOTCH REFLEXES TO CONTROL 
YOUR VEHICLE THROUGH A DISTANCE OF 
10 LAPS, THE COURSE WILL BE BOTH 
STRAIGHT AND WINDING, YOU WILL 
CONTROL YOUR VEHICLE WITH THE 

LEFT AND RIGHT ARROW KEYS. 

THE SLIGHTEST CONTACT WITH THE 
EDGE OF THE TRACK WILL CAUSE 

AN ACCIDENT, AND A HIT WILL BE 

ADDED TO YOUR SCORE. 


PRESS А KEY... 
FIRST МАМЕ Or DHIVEH*? WALLACE 
WALLACE STRIKE A KEY TO BEGIN... 


START 


POKE LANE 
GRAPHICS 


MOVE VEHICLE 
LEFT 
MOVE VEHICLE 
RIGHT 
RESET LANE 
VARIABLES 


Y 
OUTPUT TALLY BEST 
TOTAL HITS SCORE N STOP 


Flowchart for The Course. 
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DRIVER: 
LAPS — 
HITS — 


Program Listing 


10 
20 
30 
40 
30 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 


НЕМ PROGRAM TITLE: THE COURSE 

CLS:PRINT ТАН(10); 

PRINT'"»») THE COURSE <<<" 

PRINT 

INPUT"REQUIRE INSTRUCTIONS'";X$ 

IF X$="N" OR X$="NO" THEN 210 

PRINT 

PRINT"THE COURSE WILL REQUIRE THAT YOU" 
PRINT"USE TOP NOTCH REFLEXES TO CONTROL" 
PRINT"YOUR VEHICLE THROUGH A DISTANCE OF" 
PRINT"10 LAPS. THE COURSE WILL BE BOTH" 
PRINT"STRAIGHT AND WINDING. YOU WILL" 
PRINT"CONTROL YOUR VEHICLE WITH THE" 
PRINT"LEFT AND RIGHT ARROW KEYS." 
PRINT"THE SLIGHTEST CONTACT WITH THE" 
PRINT" EDGE OF THE TRACK WILL CAUSE" 
PRINT"AN ACCIDENT, AND A HIT WILL BE" 
PRINT' ADDED TO YOUR SCORE." 
PRINT: PRINT: PRINT" PRESS A KEY..." 
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200 
220 
220 
225 
230 
240 
245 
250 
260 
265 
270 
275 
280 
285 
290 
ars 
300 
305 
310 
315 
320 
330 
340 
350 
360 
370 
380 


390 
400 
405 
410 
415 
420 
430 
440 
450 
460 
470 
480 
485 
500 
5 05 
5210 
520 
930 
535 
540 
250 


16 


Хӛ-ІМКЕҮ5:ІҒ X$="" THEN 200 


гте:т-1.-%іТт-1 


INPUT"FIRST МАМЕ OF ӘНІУЕН"; 5 


IF D$-"" THEN PRINT:GOTO 220 
PRINT D$;" STRIKE A KEY TO BEGIN..." 
X$-INKEYS:IF X$="" THEN 240 


IF T)=2 THEN CLS:GOTO 260 
CLS:DIM CxX(18),CY¢18) 

PRINT@O, "DRIVER: ";D$;:GOSUB 1000 
CCOs0:LP=0:LL=0:HI=0:' THE COURSE 
СХ= 15388: СУ=СХ+9:Ј=191:С=1 
Сі=СХ+3: С2=С1+2:' VEHICLE 

IF СҮ) =16383 OR C1>=16383 THEN 400 
IF CC=#i THEN 420 

POKE CX,J: POKE СҮ, 
CX¥(Cy=C¥:CY(C)=CY:' TO BLANK OLD COURSE 
СХ=СХ+64: СУ= СҮ+ 64 

C=C+i 

DD-RNDC2) 

KY=PEEK(14400):' KEYS 

IF DD-i THEN 340 
CX-CX«DD-1:CY-2CY«DD-1:GOTO 360 
DD-z-DD 

CXzCX4DD:CYzCY-«DD 

' CHECK FOR MOVEMENT (VEHICLE?) 
IF КҮ-32 THEN 500 

IF KY=64 THEN 5530 

GOTO 280 

CC=1:LP=LPri 

IF (LP/10)=.6 THEN LL=LL+1:LP=1 
PRINTG64,"LAPS =";LL; 

IF LL?-10 THEN 700 ELSE GOTO 270 
POKE CX(C),32:POKE CY(C),32 

POKE C1,32: POKE C2,32 

IF C2>=1631?9 THEN 290 

С1=С1+64: С2=С2+6 4 

POKE C1,183:POKE C2,187 
CL=PEEK(C1-1):CR=PEEK(C2+1) 

IF ABS(CL+CGR)<>64 THEN 600 

GOTO 290 

' VEHICLE MOVEMENT (LEFT) 

POKE C1,32:POKE С2,32 
C1zC1-1:C622CZ-1 

GOTO 280 

' VEHICLE MOVEMENT (RIGHT) 

POKE C1,32:POKE С2,32 

IF С22-16319 THEN 280 
СісСіж»1:С2-С241 


560 GOTO 280 

600 ' HITS TO VEHICLE 

610 HI=HI+1 

620 PRINTG128,"HITS -";НІ; 

630 GOTO 290 

700 ' FINISH 

710 РНІМТӨ192,СНН5<30) 

720 IF НІ-0 THEN 800 

730 PRINT"YOU DIDN'T MAKE THE";LL; "LAPS" 
740 PRINT"WITHOUT ERROR. YOU TOOK A" 
750 PRINT'TOTAL OF";HI;"HITS...." 
760 PRINT"TRY AGAIN, ";D$; 

770 INPUT Х5 

780 IF X$-"N" ОН X$="NO" THEN 1100 
790 AT=AT4+1:PRINT:GOTO 830 

800 PRINT"NOT BAD! NO HITS AT ALL!" 
810 PRINT' THINK YOU MIGHT WANT TO" 
820 GOTO 760 

830 T(TOzHI:' BEST SCORE 

835 IF T<=1 THEN 920 

840 =1:7=0 

850 IF Т(ХІ2<-Т(Із1) THEN 880 

860 YS=T(I1>);:T(I)=T(I+1):T(I+1)=YS 
870 Zzi 

880 I=I+1:IF I>=T THEN 900 

890 GOTO 850 

900 IF 2-1 THEN 840 

910 Н5-Т(1) 

920 T=T+1:IF Т>-5 THEN BS=T(1):T=3 
930 PRINT 

940 PRINT:GOTO 230 
1000 ' MESSAGE 

1010 IF T(-2 THEN 1040 
1020 PRINTG42,"BEST SCORE: ",;BS; 
1030 PRINT@106, "ATTEMPTS: "; АТ; 
1040 RETURN 

1100 ' END 

1110 CLS 

1120 PRINT"END OF PROGRAM RUN..." 
1130 END 


The Variables and Strings 


X$ - General purpose for input commands 

T - For users' scores 

AT - Total user attempts 

D$ - Name of driver 

CX & CY (subscripted) for left and right sides of the lane 


CC - General purpose variable. When CC is equal to 1, the previous 
track will be reset as a new course Is poked. 

LP - When this variable is divided by 10, one lap will have been 
completed 

LL - Total laps 

HI - Total hits per 10 lap period 

CX, CY & J - For lane placement, poked into video memory 

C1 & C2 - For shape of vehicle, poked into video memory 

C - Used in conjunction with subscripted variables CX & CY to poke 
previous track with blanks, CHR$(32) 

DD - A random amount to move track (shape) left or right 

KY - For user key closure: Left arrow to move vehicle left and right 
arrow to move vehicle right 

CL & CR - Used to detect when a user's vehicle has hit the side of 
the lane 

T(D - For users' best run 

Z - General purpose, used to insure that the best run is correct 

BS - Best score obtained 


Explanation of the Program Lines 

Lines 20-200 print all instructions, if they are needed. 

Line 210 initializes two of the variables. 

Lines 220-240 asks for the user's first name and a key press to 
begin the game. 

Line 245 skips the dimension statements, if they have already 
been used. 

Line 250 is the dimension statement for the subscripted vari- 
ables CX and CY, which poked the locations of the left and right 
sides of the lane. 

Line 260 prints the driver's name and then branches to 1000 
(GOSUB) where best score and total attempts are printed if the 
variable T is greater than or equal to 2. 

Line 265 initializes more variables: CC for the blanking of the 
old or previous lane, LP for each lap, LL for total laps, and HI for 
total hits. 

Lines 270-630 poke the left and right sides of the lane until the 
bottom of the video is reached. Then the vehicle is poked at the top 
of the video. The old course is then followed, using the left and right 
arrow keys, and the vehicle moves toward the bottom of the video. 
While all of this is taking place, the old lane (behind the vehicle) is 
blanked out and a new course is poked. The user will not be 
grounded for 'hits' to the old lane, just the new, which is being poked 
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while he or she is driving. This is decided by the absolute amount of 
CL -CR. If this amount is not equal to 64, a hit has been made to 
either side of the lane, If LP/10=6, one lap has been completed, 
апа LL is then advanced by one. If LL —10 (laps) the program 
branches to line 700, where the score is tallied and the user is asked 
if he or she wants to try again. 

Lines 840-900 determine the best score. The program con- 
tinues to loop here until T(1) is the lowest number of hits. When 
equal to 1 variable Z indicates that the lowest has not been reached, 
so the program branches back to line 840 and begins again. 
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INTERCHANGE: A FOR M, 
E FOR J, C FOR R, Z FOR D, 
? FOR ??, AND THAT OTHER 


LETTER WAS ? FORL 


WORDS-ZIT 


In this game you'll be faced with decoding 20 different mes- 
sages formed by interchanging all of the letters of the alphabet, 
except for E, I and O. Each message will look like a bunch of 
garbage, but after you have decoded the first message, the last 19 
shouldn't be so hard! The program uses INKEYS$. If you make 
a mistake, use the left arrow key to backspace over your mistake 
and then continue. 


Sample Run 


INSTRUCTIONS? YES 

WORDS-ZIT 

YOU WILL BE FACED WITH 20 DIFFERENT 
MESSAGES TO DECODE. ALL THE 
LETTERS OF THE ALPHABET HAVE 

BEEN INTERCHANGED, EXCEPT FOR E, 

l, AND O, WHICH REMAIN THE SAME. 

IF YOU MAKE IT THROUGH THE FIRST 
MESSAGE, REMEMBER WHICH LETTERS 
WERE CHANGED WITH WHICH, THEN THE 
FOLLOWING 19 SHOULDN'T BE SO HARD. 
TYPE SLOWLY, DON'T BE IN A HURRY. 
THE PROGRAM USES INKEY$, IF YOU 
MAKE A MISTAKE, USE THE LEFT 
ARROW KEY TO BACKSPACE. 

PRESS ENTER? 


GOH MLFE DMIZ ONE SIAMD 
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Y 


PRINT 
INSTRUCTIONS 


READ DATA 
LIST 
GET 

MESSAGE 


<> 


М 


SET LETTERS 
RANDOM SORT 


PRINT 
MESSAGE 


XS = INKEYS 
N 


ADVANCE 
е ç Су: z| COMPARE CORRECT 
| - um ы 


FINAL 
MESSAGE 
Y 


Flowchart for Words-Zit. 
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THE MESSAGE? 
І DO NOT HAVE ANY IDEA 


YOU HAVE MISSED 19 LETTERS. 
TRY THE SAME ONE OR GO TO THE NEXT 
ENTER SAME OR NEXT? NEXT 


IR DMEG QESE LBB LZ ZIKPBE 


THE MESSAGE? 
I5 MEG IN THE HOUSE NOW 


YOU HAVE MISSED 23 LETTERS. 
TRY THE SAME ONE OR GO TO THE NEXT 
ENTER SAME OR NEXT? NEXT 


ULN GOH NOD QOSJ RLZDES 


THE MESSAGE? 
YOU HAVE SEEN THE HIDER 


YOU HAVE MISSED 20 LETTERS. 
TRY THE SAME ONE OR GO TO THE NEXT 
ENTER SAME OR NEXT? NEXT 


GOH MLFE KYLE ID DMIZ RLS 


THE MESSAGE? 

SCRAMBLE A LITTLE MORE 

YOU HAVE MISSED 23 LETTERS. 

TRY THE SAME ONE OR GO TO THE NEXT 
ENTER SAME OR NEXT? NEXT 


STOP 


(This is not a complete run. Messages were guessed at so 


as to reveal the code.) 
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Program Listing 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
305 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 


PROGRAM TITLE: WORD-ZIT 


RANDOM: CLEAR 700 

CLS: INPUT" INSTRUCTIONS" ; A$ 

IF А$ <) "Ү" AND AS$<)"YES" THEN 200 
PRINT'"WORDS-ZIT" 

PRINT"YOU WILL BE FACED WITH 20 DIFFERENT" 
PRINT"MESSAGES TO DECODE. ALL THE" 
PRINT"LETTERS OF THE ALPHABET HAVE" 
PRINT"BEEN INTERCHANGED, EXCEPT FOR E," 


PRINT"I, AND O, WHICH REMAIN THE SAME." 

PRINT"IF YOU MAKE IT THROUGH THE FIRST" 

PRINT"MESSAGE, REMEMBER WHICH LETTERS" 

РНІМТ"МЕНЕ CHANGED WITH WHICH, THEN THE" 

PRINT"FOLLOWING 1? SHOULDN'T BE SO HARD." 

PRINT'TYPE SLOWLY, DON'T BE IN A HURRY," 

РНІМТ"ТНЕ PROGRAM USES INKEYS. IF YOU" 

PRINT"MAKE A MISTAKE, USE THE (LEFT! 

PRINT" ARROW) KEY TO BACKSPACE." 

INPUT"PRESS ENTER";AS 

CLS 

DIM U$(212,M(21)2,X$(272,L$(2?7) 

DIM W$(21),L¢27):WDe=1 

GOSUB 4000:W$=W$(X) :W=LEN(W$):' MESSAGE 
SET LETTERS THEN REDO 

Az1:1265 

XS$(CA)=CHRS (I): LCA =A 

AzA+1:I=I+1 

IF 1=91 THEN 300 

GOTO240 

A=1:PRINT@0,STRING$ (14, 32) 

IF WD>=3 THEN 470 

X=RND( 26) 

IF L(X2z0 THEN 310 


LSA) =X$S$(K):L¢X)=0 

A=A+1 

IF Az27 THEN 370 

GOTO 310 

' PLACE E,I, & Q IN PROPER PLACE 
29ң-"Е"“:Ме5 


FOR І-і ТО 27 

IF 15(1)=25 THEN 420 

МЕХТ 

' NOW INTERCHANGE EACH 
L$zL$MD):L$(MDOzLS$(CIDO:LS$(CIOzLS 

IF Z$="E" THEN Z$z"I":M-9?:GOTO 390 
IF Z$z"I" THEN Z$z"Q":M-15:GOTO 390 
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460 A=1:' PRINT MESSAGE 

ата Ow fet TO 26 

480 IF X$(I)=MID$(W$,A,1) THEN 510 

490 IF MID$(W$,A,1)=" "ú THEN T$=" ":GOTO 520 
500 NEXT 


510 T$=L$%$ (I) 

220 PRINT T$; 

930 AzA-«1 

540 IF AW THEN 560 

550 СОТО 470 

560 PRINT: PRINT 

570 PRINT"THE MESSAGE ?" 

580 P=256:A=1 

590 X$=INKEYS 

600 PRINTGP,CHR$(143);, 

610 FOR Т-1 ТО 50:МЕХТ 

620 PRINTGP," "; 

630 FOR T=1 TO 25: NEXT 

640 IF X$="" THEN 590 

650 IF ASC(X$)=8 THEN 690 

660 PRINT@P,X$;:P=P+1:A=A+1:GOTO 750 
670 IF A»W THEN 900 

680 GOTO 590 

690 Р-Р-1:А-А-1:! BACKSPACE 

700 IF Р<-256 THEN Р=256:А=1 

710 ' BACKSPACE TOTAL MESSAGE 

720 О%-ГЕҒТ5(0%,А-1) 

730 GOTO 590 

750 ' TOTAL MESSAGE 

760 05-а5$+Х 5 

770 GOTO 670 

900 ' ONE COMPLETED 

910 PRINT: PRINT 

920 IF 0а05%2М% THEN 1000 

930 PRINT"YOU HAVE THIS ONE CORRECT." 
935 CR=CR+1:IF WD>=3 THEN 960 

940 PRINT"DO YOU REMEMBER THE CODE FOR" 
950 PRINT"EACH OF THE LETTERS..." 

960 FOR T-1 TO 3000:МЕХТ 

965 IF WD-21 THEN 1200 

970 CLS:Q$=""":GOTO 230 

1000 ' INCORRECT LETTERS 

1010 FOR Ісі TO LEN(WS$) 

1020 IF MID$(Q$,1,1)¢>oMID$(W$,I,1) THEN 1040 
1030 NEXT:GOTO 1050 

1040 ML=ML+1:GOTO 1030 

1050 PRINT"YOU HAVE MISSED";ML;"LETTERS." 
1060 PRINT"TRY THE SAME ONE OR GO TO THE NEXT" 
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1070 INPUT"ENTER SAME OR NEXT";AS$:ML-0 

1080 IF A$="SAME" THEN 1110 

1090 IF A$="NEXT" THEN SK=SK+1:GOTO 960 

1100 PRINT:GOTO 1060 

1110 Q$="" 

1120 CLS 

1130 PRINT:GOTO 460 

1200 ' END OF LIST 

1210 CLS 

1220 PRINT"SORRY, WE HAVE USED THE ENTIRE" 

1230 PRINT"LIST OF MESSAGES..." 

1240 PRINT"YOUR FINAL SCORE:" 

1250 ' CORRECT / INCORRECT 

1260 PRINT CR;"MESSAGES CORRECT." 

1270 PRINT SK;"MESSAGES INCORRECT OR SKIPPED." 

1280 PRINT 

1290 PRINT"END OF RUN." 

1300 END 

4000 ' READ DATA LIST IF NOT DONE 

4010 IF WD»-2 THEN 4030 

4020 FOR Ісі TO 20:READ U$(I)):M(I)=I: NEXT 

4030 ' GET RANDOM MESSAGE 

4040 X=RND(20):IF M(X)=0 THEN 4040 

4050 W$(X)=U$(X):M(X)=0 

4060 ' COUNTER ADVANCE 

4070 WD=WD+1 

4080 PRINT@0, "PROCESSING..." 

4090 FOR T=1 TO 1000:NEXT 

4100 RETURN 

9000 DATA YOU HAVE THIS ONE RIGHT 

5010 DATA YOU MUST BE GETTING BETTER 

9020 DATA DOING FINE 

9030 DATA A ROLLING STONE DOES NOT GET WET 

5040 DATA YOU HAVE MADE IT THIS FAR 

5050 DATA YOU MUST BE A CRACK AT CODES 

9060 DATA WORDS OR MESSAGES YOU MUST KNOW 
THE CODE 

9070 DATA IF THEY VERE ALL AS SIMPLE 

9080 DATA IF YOU WANT TO QUIT THINK AGAIN 

5090 DATA МЕ ARE JUST BEGINNING 

5100 DATA CAN YOU NOT WORK FASTER 

9110 DATA PERHAPS YOU ARE BEGINNING TO 
DEHYDRATE 

9120 DATA PERHAPS YOU HAVE TO WORK 
TOMORROW 

9130 DATA HIGH ON А MOUNTAIN BREAKING А CODE 

5140 DATA IF YOU MADE IT THIS FAR BE А SPY 

9150 DATA MICRO CHIPS ALL OVER THE FLOOR 


25 


5160 DATA HAVE YOU THOUGHT ОҒ ENTERING А 
SCHOOL OF CODE 

:9170 DATA ALL THE TIDES AND A FULL MOON 
COULD NOT STOP YOU NOW 

9180 DATA SAY YES IF YOU WANT TO QUIT AND I 
WILL NOT RESPOND 

9190 DATA А ZEBRA MUST HAVE STRIPES FOR THE 
FBI FILES 


Variables and Strings 


A$ - General input 

U$(D - For messages 

M(D - For used messages 

X$(D - Correct order of letters 

L$(D-Random order of letters L(I) - Used letters 

W - Number of letters and spaces per message (LEN) 

А - General counter 

I - General purpose, for letters 

WD - Counter, messages used 

X - Random select/placement of letters into L$(I) 

Z$ - For placement of letters E,I and O into their proper locations 
T$ - Letters of message (coded) 

P - Placement of letters (input) at video PRINT@locations 
X$ - For user letter entries 

Q$ - User's input message 

CR - Counter, correct messages 

ML - Counter, missed letters 

SK - Messages skipped or incorrect 


Explanation of the Program Lines 


Line 20 clears 700 bits of memory for string storage (Q$). 

Lines 30-200 print the general instruction. 

Lines 210-220 dimension the variables and strings and 
initialize the counter for the messages used. 

Line 230 contains a GOSUB to line 4000 where the data list is 
read into the U$ array if this hasn't already been done. À random 
message is selected and then deleted from the list so it will not be 
reselected. The return is made to line 230 where W$ is set to the 
contents of the W$(X) message, and W is set to the length of W$. 

Lines 240-290 sets the subscripted string, X$, to the 26 letters 
of the alphabet. 

Lines 300-360 select random letters from the alphabet, and 
places them within L$(A). 
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Lines 370-450 check the location of the letters E, I, and O and 
interchange them with the three correct letters if necessary. 

Lines 460-550 print the entire message in coded form. 

Lines 560-640 use the INKEY$ function for user entry of the 
letters. If X$ 1s not equal to null, the program branches to line 650. 

Line 650 tests the ASC value of X$ for a possible backspace 
entry. 

Line 660 prints the contents of X$ at location P. Location P is 
then advanced by one, and the count of the letters 1s increased by 
one (À). 

Line 670 checks the letter counter, A. If the value is greater 
than W, the entire message has been entered. 

Line 680 recycles back to INKEY$, if the message is not 
finished. 

Lines 690-730 backspace one letter if ASC(X$) = 8 and de- 
crease the location variable (P) and the counter (A) to match the 
backspace. 

Lines 750-770 accumulate the total message entered by user. 

Lines 900-1130 test for correct message entry. If the entry is 
correct the counter, CR, is advanced by one and another message 
will be selected (if any remain). If it is incorrect, the user will have 
the opportunity to try the same message or skip it and go to another 
one. 

Lines 1200-1300 print the final messages and terminates the 
program. 

Lines 4000-4100 were explained under line 230 above. 

Lines 5000-5190 are the correct messages. 
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72077VI S zZzZ [mee 
08303 = CGREP 


POE 
YOO 


MATH-A-CODE 


This program is similar to Words-Zit. Each problem you receive 
will have the numerals encoded as letters of the alphabet. Read all 
the instructions carefully before playing, noting exactly what letters 
represent the Os (zeros) in any answer. It will mean the difference 
between winning and losing! 


Sample Run 
MATH-A-CODE 


THE INSTRUCTIONS? YES 


IN THESE MATH PROBLEMS YOU WILL MULTIPLY TWO 
NUMBERS, THEN ADD ANOTHER TO THE ANSWER— 
SIMPLE, BUT HAVE YOU TRIED IT LATELY USING LETTERS 
FROM THE ALPHABET? 

EACH LETTER FROM THE ALPHABET WILL REPRESENT A 
NUMBER FROM 1-9 AS YOU WILL SEE IN A SAMPLE. EACH 
NUMBER WILL ONLY BE USED ONCE IN EACH PROBLEM. 


PRESS ENTER? 

STUDY THIS SAMPLE: 

HDJ * FGC + BIE = EBFFAC. 

THE ANSWER IN THE ABOVE SAMPLE CONTAINS A 0 
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START 


2. 


EIL UNE 


I 


PRINT 
INSTRUCTIONS 


GET 
NUMBERS 1-9 


RANDOM SELECT 


PRINT PROBLEM 


INPUT QS Flowchart for 
Math a Code. 


PLACE 
TL$ TOGETHER 


Q$ = TLS 


POINT ADVANCE 


CLEAR VIDEO 


KK 


MESSAGE 


< 
z 
с 
- 
D 
59 
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(ZERO). THIS IS REPRESENTED BY THE LETTER A ANY- 


THE LETTER BEFORE THE FIRST LETTER IN THE SET; I.E., 
IF THE FIRST LETTER IN ASET IS R, THE ZERO, IF NEEDED, 
WOULD BE THE LETTER Q. 

PRESS ENTER? 

HEMEMBER, ALL LETTERS WILL REPRESENT THE NUM- 
ERALS 1-9 ONLY ONCE IN EACH PROBLEM. YOU WILL 
HAVE A SET OF 20 PROBLEMS TO COMPLETE ONCE YOU 
BREAK THE CODE, THINGS WILL GO QUITE SMOOTHLY 

PRESS ENTER TO BEGIN? 

HED*GCJ + ВЕ! = ?AEFGRT 

XSW*QUY + RVT = ?RFTAEE 

SRL*PTN + MOQ = ?UJYTT 

MLK*JGI + NHF = ?M. 


QTR*PSW + UOV = ?RETTCV 


VQU«ORP + TNS = ?DEAABC 
FGH*LIJ + KDE = ?CXXVFG 
GHF*ECJ + DBI = ?GTTFD 
MJN*ILG + КНЕ = ?HAACD 
FIL«JEH + DKG = ?BRTTG 
TON#PRS + QML = ?HAAES 
FEJ*GIB + CHD = ?XXSZD 
NLK*MFG + IHJ = ?HTFFD 
XUR*SWT + YVQ = ?JHHASD 
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HJE«FCB + DGI = ?VFRRA 


FDI«EHJ + GLK = ?ACDDB 


STR*POV + UQW = ?WAZXD 


lI 


XSR=*TYV + UWQ = ?BGTTD 


PSN«RMK + LOQ = ?EFFAC 
CGH*IKE + JFD = ?ERRGH 


TOTAL POINTS FOR CORRECT 
ENTRIES ARE: 0 


YOU ARE READY TO TRY 
20 MORE PROBLEMS, RIGHT? NO 
NATURAL BORN QUITTER!!! 


All answers were missed on purpose so as to not reveal the 
code. 


Program Listing 


10 REM PROGRAM TITLE: MATH-A-CODE 

20 CLS:TPz0 

30 PRINT'"MATH-A-CODE' 

40 INPUT"THE INSTRUCTIONS" ; X$ 

50 IF X$="N" OR X$z"NO" THEN 300 

60 PRINT"IN THESE MATH PROBLEMS" 

65 PRINT" YOU WILL MULTIPLY" 

70 PRINT'TWO NUMBERS, THEN ADD ANOTHER" 

75 PRINT'"TO THE ANSWER--SIMPLE. BUT, HAVE" 
80 PRINT" YOU TRIED IT LATELY USING LETTERS" 
85 PRINT" FROM THE ALPHABET?" 

90 PRINT"EACH LETTER FROM THE ALPHABET" 

95 PRINT'"WILL REPRESENT A NUMBER FROM" 

100 PRINT"1-?, AS YOU WILL SEE ІМ A SAMPLE." 
105 PRINT"EACH NUMBER WILL ONLY BE USED" 
110 PRINT" ONCE IN EACH PROBLEM." 

115 PRINT 

120 INPUT" ENTER", X$:CLS 
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125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
215 
220 
225 
230 
235 
240 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
500 
510 
520 
530 
540 
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PRINT"STUDY THIS SAMPLE:" 

PRINT"HDJ * FGC + BIE = EBFFAC" 
PRINT"THE ANSWER IN THE ABOVE SAMPLE" 
PRINT"CONTAINS А 0 (ZERO). THIS IS" 
PRINT"REPRESENTED BY THE LETTER 'A'." 
PRINT"ANYTIME YOUR ANSWER CONTAINS" 
PRINT"A 0 (ZERO), IT WILL BE THE" 
PRINT"LETTER BEFORE THE FIRST LETTER" 
PRINT"IN THE SET; I.E., IF THE" 
PRINT"FIRST LETTER IN A SET IS 'R' 
PRINT"THE ZERO, IF NEEDED, WOULD" 
PRINT"BE THE LETTER 'Q'." 

PRINT 

INPUT"PRESS ENTER";X$:CLS 
PRINT"REMEMBER, ALL LETTERS WILL " 
REPRESENT THE NUMERALS 1-9" 
PRINT"ONLY ONCE (IN EACH PROBLEM) " 
PRINT"YOU WILL HAVE А SET OF 20" 
PRINT"PROBLEMS TO COMPLETE IN" 
PRINT"CODED FORM. ONCE YOU BREAK" 
PRINT"THE CODE, THINGS WILL GO" 
PRINT"QUITE SMOOTHLY..." 

PRINT 

INPUT"PRESS ENTER TO BEGIN";KX$5 
CLS:Y-65:J20:' GET NUMBERS 1-9 
FOR І-і TO 9:N(I)=I:NEXT 

I-1 
N=RND(9) 

IF N(N)=0 THEN 330 
ACI) =М: МОМ) =O0:L¢I)=I1 

=I+1 

IF І-10 THEN 390 
GOTO 330 

' PROBLEM (LETTER FORM) 
FOR Isi ТО 3:A5-2AS$«STRS(CACIO) 
GOSUB 470:NEXT: PRINT" * "; 
FOR І-4 TO 6:A15-A15$4STR$ CACIO) 
GOSUB 470:NEXT: PRINT" + "; 
FOR Iz? TO 9:AZ$=A2$4STRSCACI)) 
GOSUB 470:NEXT:PRINT" = "; 
GOTO 500 
PRINT CHR$(ACIO«Y); 
RETURN 

' USER ENTRY 

INPUT Q5 

' TOTAL 
T=VAL(AS)*VAL(A1$)+VAL(A2$) 
T$=STR$ (T) 


550 ' TOTAL TO STRING 

560 FOR I=2 TO LEN(TS$) 

570 TL$=TL$+CHR$(VAL(MID$(T$,I,1))+Y) 
980 NEXT 

990 ' COMPARE 

600 IF 05 ОТІ5 THEN 620 

610 PI=PI+INT(T/100):' POINTS 
620 TP=TP+1:' TOTAL PLAYS 

630 J=J+1:1F TP=20 THEN 800 
640 AS$z"":A1$z"":AZ2$z"" 

650 T$="" 'TL$=" 

660 Y=RND(80) 

670 IF ¥¢=64 THEN 660 

680 PRINT 

690 IF J=7 THEN 300 

700 GOTO 310 

800 ' MESSAGE / FINAL 


810 CLS 

820 PRINT"TOTAL POINTS FOR CORRECT" 
830 PRINT"ENTRIES ARE: ";PI 

840 PRINT 


850 PRINT“ YOU ARE READY TO TRY" 

860 РНІМТ"20 MORE PROBLEMS, RIGHT"; 
870 INPUT X$ 

880 IF X$="N" OR X$="NO" THEN 900 
890 TP=0:J=7:GOTO 640 

900 PRINT 

910 PRINT"NATURAL BORN QUITTER !!!" 
920 END 


Variable and Strings 


TP - General counter, total problems 

X$ - General input string 

Y - ASCII contents, for coding 

J - Simple counter for clearing of video, when the number of prob- 
lems reaches 7 

N(D - Numerals 1-9 for coding 

АС) - Random value as above for coding 

А%,А1%,А2% - STR$ contents of code for totals 

Q$ - User input of answer in letter form 

T - The total value of Al, A1$, and A2$ 

T$ - STR$ of T (above) 

TL$ - For total in letter (code) form 

PI - Point total 
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Explanation of the Program Lines 

Line ZO initializes ihe variable ТР for ше Count ot Ше total 
problems. 

Lines 30-240 display the instructions for play. 

Line 300 initializes the variables Y and J. 

Lines 310-380 set the subscripted variable N(D to the numer- 
als 1-9; then selects the numerals 1-9 in a random fashion and places 
them in subscripted variable A(D, and finally deletes the number 
selected. 

Lines 390-480 print the problem in its coded form. 

Lines 500-510 allow the user to input the answer in letter form. 

Lines 520-580 put together the answer in coded letter form. 
This is done after the user has entered his or her answer so no 
cheating can take place. 

Lines 590-600 compare answers. 

Line 610 increases the score if the answer is correct. 

Line 620 advances problem counter by one. 

Line 630 increases the problem count by one. If J 1s equal to 7, 
the video is cleared (line 690). If TP is equal to 20 the program 
branches to final message. 

Lines 640-700 sets the strings to null, and get another amount 
for Y, and then recycle back for another problem. 

Lines 800-920 print the total points accumulated and ask if the 
user wants another set. Íf he does not, the program is terminated. If 
he does, variables J and TP are initialized and the program recycles 
to the beginning. 
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AAR Gr БД) 
БЕБЕЕЕЕР 
7/7) ЕР [939 


ЕСІРІП 


Have you ever seen so many code programs? Using the sound 
routine, the computer will select three digits from the numerals 
1-9. The computer will then beep each digit. Each tone will repre- 
sent a specified digit. You will enter your guess of the 3 digits using 
the INKEY$ function. The computer will beep each of your guesses 
as you press the numeral key. Match the tones and you've got the 
code, but watch out, you'll only have a certain amount of time before 
computer changes one of the digits! Remember to use the proper 
value for MC in line 370. Refer to page 3. 


Sample Run 


: MASTER CODE :: 
INSTRUCTIONS? YES 


HEAD THE INTRODUCTORY PARAGRAPH 
IN THE BOOK. REMEMBER THAT THE 
COMPUTER WILL HOLD A MASTER 
CODE FOR ONLY SHORT PERIODS OF 
TIME AND THEN CHANGE ONE DIGIT 

OF IT. AFTER A LENGTH OF TIME, IF 
YOU DO NOT BREAK THE CODE, 

YOU'LL BE OUT OF THE GAME. 

LISTEN FOR THE THREE BEEPS: 

THESE WILL BE YOUR CLUE TO 
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PRINT 
INSTRUCTIONS 


NUMBER OF 
PLAYERS 
SELECT THREE 
DIGITS—BEEP 
USER CODE 
INPUT 


COMPARE- 
CORRECT 


MESSAGE 
CC = СС +1 


Flowchart for Master Code. 
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; CHANGE ONE 
N DiGIT—BEEP 


TIME HAS 
EXPIRED 


GET ANOTHER 
N PLAYEA 


Y 
MESSAGE 
STOP 


THE MASTER CODE. NUMBERS IN 
THE CODE ARE 1-9 (3 DIGITS). 


NUMBER TO PLAY? 2 


FIRST NAMES OR INITIALS 
OF THESE 2 PLAYERS? E.F. 
G.T. 


БЕР. 


WILL PLAY NOW, LISTEN 


TO THE THREE TONES. 


Program Listing 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
290 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


НЕМ PROGRAM TITLE: MASTER CODE 
CLS 
PRINT":: MASTER CODE ::" 
RANDOM 
INPUT"INSTRUCTIONS";X$ 
IF X$«4»5"YES" THEN 250 
PRINT 
PRINT"READ THE INTRODUCTORY PARAGRAPH' 
PRINT"IN THE BOOK. REMEMBER THAT THE" 
PRINT"COMPUTER WILL HOLD А MASTER" 
PRINT"CODE FOR ONLY SHORT PERIODS OF" 
PRINT"TIME AND THEN CHANGE ONE DIGIT" 
PRINT"OF IT. AFTER A LENGTH OF TIME," 
PRINT"IF YOU DO NOT BREAK IT, YOU'LL' 
PRINT"BE OUT OF THE GAME." 
PRINT"LISTEN FOR THE THREE BEEPS," 
PRINT"THESE WILL BE YOUR CLUE TO" 
PRINT"THE MASTER CODE. NUMBERS IN' 
PRINT"THE CODE ARE 1-9 (3 DIGITS). ." 
INPUT"NUMBER TO PLAY (1-4)"; РА 
IF РА41 OR РА>24 THEN 250 
PRINT"FIRST NAMES OR INITIALS" 
PRINT"OF THESE"; PA; "PLAYERS"; 
FOR І=1 TO PA: INPUT N$ (1) 
NEXT 
V=1 
N$=N$5(V): PRINT 
PRINT N$;" WILL PLAY NOV. LISTEN" 
PRINT"TO THE THREE TONES." 
REM NUMBERS IN CODE 
REM LOCATION FOR BEEPS 
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370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
370 
280 
600 
610 
620 
630 
640 
650 
660 
670 
680 


690 
700 


710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
B40 
850 
860 
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N=3:MC=31266 

REM TOTAL NUMBERS IN SET 

FOR Ісі ТО 9:5 ( Із-іІ:МЕХТ 

FOR X=1 ТО 1500:МЕХТ:НЕМ GET CODE 
X=1:P=95:PL=102:D=0 
A=INTCRND(0)*9)+41 

IF М(ГҺА)-0 THEN 420 
ACX)=A:N(A)=0:POKE MC,A*A+4+140 
U=USR(0):X=X+il 

IF XN THEN CLS:GOTO 480 
GOTO 420 

M=0:T=0:REM BEGIN TIME 
Lz64:Gz0:IF M=1 THEN $10 
PRINTGO,"THE CODE ?"; 
CS=INKEYS$ 

T=T+1:TM=INT(T/20) 

PRINT@15, "TIME: ";TM; 

IF C$="" THEN 600 
H=VAL(C$):POKE MC,H*H+140 
U-ZUSR(COD: PRINTGL,H;:LzL42 
G=G+1:H(G)=H: IF G=N THEN 620 
REM TOTAL TIME 

IF ТМ<(<210 THEN 510 

GOTO 720 

REM COMPARE 

FOR W=1 TO N 


IF HCW) Ў АСЫ) THEN 670 
NEXT 

GOTO 1000 

PRINTGL464-N*2," INCORRECT" ; 


FOR X=1 ТО $00:NEXT: T=T+6 
PRINT@L+64-N*2,S5TRING$ (9,32); 
PRINT@L-N*2,5TRINGS (N*2,32); 
GOSUB 820:M=1:GOTO 490 
PRINTG21,"* EXPIRED *"; 

REM CHANGE RANDOM NUMBERS 
Y-RND(CON) 

EXZEX-1:IF EX=7 THEN 950 
A=INTCRND(0)*9)41 

IF МА) =0 THEN 760 

АСУ) = А: МСА) =0: POKE МС, АХА+140 
U=USR(0):GOSUB 1160 
PRINT@21,STRING$ (11,32); 
PRINTGL-N*2,STRING$ (N*2,32)2,;:GOTO 
REM ATTEMPTED SEQUENCES 

IF Mz0 THEN 850 

GOTO 860 

PRINT@35, "ATTEMPTED SEQGUENCES:"; 
FOR W=1 TO N:PRINTGP,H(W); 


480 


870 

880 

89?0 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1300 
1310 
1320 
1330 
1340 
1400 
1410 
1420 
1430 
1440 
1450 


Р=Р+2 : NEXT 

P=P-N*2+64 

IF Р)-999 THEN 910 
RETURN 

P=PL 

PL=PL4+N*2+1 

D=D+1:IF D=4 THEN 950 
GOTO 900 

REM TIME EXPIRED (TOTAL) 
PRINT: IF D=4 GOSUB 1100 


PRINT YOUR TOTAL TIME HAS EXPIRED, “;М5 


PRINT"TOTAL CODES BROKEN =";CC 
GOTO 1200 

REM CODE BROKEN 

PRINT 

PRINT" YOU'VE BROKEN THE MASTER CODE 
PRINT" FANTASTIC, “;N5;"!! NOW TRY" 
PRINT"A NEW CODE..." 

СС=СС+1 

FOR X=1 ТО 1000 :МЕХТ 

GOTO 350 

REM PRINT 

FOR X=1 TO 15 

PRINT 

NEXT 

РНІМТӨО,; 

RETURN 

PRINT@L+135-N*2,"1 DIGIT CHANGED"; 
FOR Х-і TO 900:МЕХТ 
PRINT@L+135-N*Z,STRING$ (16,32); 
RETURN 

REM ANOTHER 

Q¢(V)=CC:CC=0:GOSUB 1300 
V=V+1:EX=0 

IF VPA THEN 1400 

FOR X=1 TO 1200:NEXT 

GOTO 320 

REM BEEPS (FINAL) 

FOR X=1 TO 20 

POKE MC,A(1)*A(1)4+RND(200) 
U=USR(0):NEXT 

RETURN 

PRINT 

PRINT"ALL HAVE PLAYED; SCORES" 
PRINT"ARE AS FOLLOWS: 

FOR I=1 TO PA 

PRINT N$C¢CI);"'S SCORE";G(I); 
PRINT"CODES BROKEN..." 
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1460 NEXT 
1480 PRINT"END OF MASTER CODE" 
1490 END 


Variables and Strings 


PA - Number of players (1-4) 

М%(1) - Names of players 

V - Counter for (total) number of players, PA 
N$ - (Name of player) contents of N$(V) 

N - Total numbers in code 

MC - Location of machine language program (sound) 
М) - Numerals 1-9 for code 

X -Counter, general purpose time loop 

P & PL - Print 9 locations for user's code entry 
D - Counter, general purpose 

A - Random number select 

A(X) - Numbers in code (1-3) 

U - USR call for machine language routine 

M - General purpose 0/1 variable for print statements 
T - Time counter 

TM - Total time: INT of T divided by 20 

L - Print @ location for messages 

G - user entry, counter of digits entered 

H - Value of C$ (user entry) 

H(G) - Digits selected (user entry) 

W - for the comparison of digits 

Y - selection (random) of a digit to be replaced 
EX - for termination of program, all digits used 
CC - Correct entered codes 

Q(V) - Total correct codes, current user (player) 


Explanation of the Program Lines 


Lines 50-190 display the general instructions. 

Lines 250-260 allow the user to input the number of players. 

Lines 270-300 allow the input of the first name or initials of 
each player. 

Lines 310-340 display a message that indicates who is playing. 

Line 370 sets the variable that indicates the total number of 
digits to three, and set MC to the location that will be poked for 
sound. 

Line 390 assigns the numerals 1 through 9 to the N(D array. 
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Lines 410-470 get the three digits, and then sound a different 
tone for each. 

Lines 480-490 initialize more variables. 

Lines 500-600 let the user enter his or her selection of digits, 
output a tone for each selection, and test the amount of time 
remaining. 

Line 610 branches to line 720, if TM is equal to 10. 

Lines 620-650 compare each digit entered against digits 
selected in memory. Line 660 branches to 1000 if all are correct. 

Lines 670-710 present the message if the response was incor- 
rect. 

Lines 720-810 delete one digit and select another, beep its 
code tone, and then it returns to line 480, if EX is not equal to 7 
(which means all digits have been used). 

Lines 820-940 print all three digits the user has entered that 
did not work. They also advance or reset the PRINT @ areas for 
these codes. 

Lines 950-990 display the message indicating that time has 
expired. 

Lines 1000-1070 display the message indicating that the code 
has been broken, advance the counter CC (codes broken) by 1, and 
then return to get another code if variable EX is not yet equal to 7. 

Line 1100-1150 clear the video with print statements (blanks) 
in preparation for the termination of program. 

Line 1160-1190 display the message indicating that one of the 
three digits changed. 

Lines 1200-1250 advance the next player, if all have not yet 
played (V<PA) 

Lines 1300-1340 sound random beep tones that indicate the 
end of the program. 

Lines 1400-1490 display the total scores for all players. 


41 


A (СОСО 
/ 


mM ELT d pem —— 
к= = E СЕ 
== | 
AL 2 1 rz 
` maaan nn a RR 


DRIVER'S TEST 


Are you a good driver? Can you stay in your own lane or have 
enough sense to pass safely ? Up to 10 people can try their ability at 
the wheel without leaving the house. Of course, the steering wheel 
will consist of the left and right arrow keys. Watch out for head-on 
collisions, which occur rapidly, almost without warning. The test 
will conclude after a determined amount of time ..... or before. 


Sample Run 


HOW MANY DRIVERS? 2. 
FIRST NAMES 

? ARNOLD 

"WALT 


THANK YOU... 
DO ANY OF YOU NEED THE 
INSTRUCTIONS FOR DRIVERS TEST? YES 


YOU WILL TAKE THE DRIVERS SEAT 
IN AN ATTEMPT TO COME OUT ALIVE. 
YOU WILL BE TRAVELLING DOWN A 
ROAD, THAT WILL BE 

STRAIGHT OR WINDING, YOU WILL 

BE TESTED FOR HOW WELL YOU CAN 
STAY IN YOUR OWN LANE: MEANING, 
DON'T HIT THE SHOULDER OR THE 
CENTER MEDIAN (UNLESS PASSING). 
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START 
NUMBER OF 
DRIVERS 
DRIVERS' 
NAMES 
INITIALIZE 
VARIABLES- 


Y 
PRINT 
INSTRUCTIONS 


SET LANES 
BEGIN TEST 


ш CAR LEFT K 
ОЕ CAR RIGHT Д 
POINTS PER 
COLLISION 
N 
FINAL 
MESSAGE 
Y 
FINAL 
SCORES 
Y 
N 
CONTINUE 
TEST 


Flowchart for Driver's Test. 


PRESS ENTER? 


WHEN A CAR COMES UP IN FRONT OF 
YOU, YOU MUST PASS, TO DO THIS 
PRESS AND HOLD THE RIGHT ARROW 
KEY. AFTER PASSING QUICKLY MOVE 
BACK TO YOUR LANE BY PRESSING 
AND HOLDING THE LEFT ARROW 

KEY. THESE KEYS ARE ALSO USED TO 
KEEP YOUR CAR STEADY IN YOUR 
LANE. IF YOU ARE PASSING AND 
ANOTHER CAR IS ALREADY IN THE 
PASSING LANE...TAKE TO THE 
DITCH!!! 

A PERFECT SCORE IS 0 (ZERO) 
MISTAKES OR ERRORS. 

ARNOLD WILL. NOW TAKE THE WHEEL 
PRESS ENTER WHEN READY 


Iz T | 
I | 
| Ij 
bo y 
"i ! 
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Program Listing 


10 

20 

30 

40 

9 0 

60 

70 

80 

9 0 

100 
105 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 


REM PROGRAM TITLE: DRIVERS TEST 

CLS 

RANDOM 

INPUT"HOW MANY DRIVERS";D 

IF р<1 ОН D»10 THEN 40 

PRINT"FIRST NAMES" 

FOR I=1 TO D: INPUT QS$(I) 

NEXT: PRINT: YP=1 

PRINT" THANK YOU..." 

PRINT: M=0:WL=0:PA=#0:TR=0:CA=0 
IF ҮР>-2 THEN 430 
PRINT" DO ANY OF YOU NEED THE" 
PRINT" INSTRUCTIONS FOR DRIVERS TEST"; 
INPUT 15 
IF I$-"N" OR I$="NO" ОН I$="" THEN 420 
CLS 
PRINT" YOU WILL TAKE THE DRIVERS SEAT" 
PRINT" IN AN ATTEMPT TO COME OUT ALIVE." 
PRINT" YOU WILL BE TRAVELLING DOWN A" 
PRINT"ROAD THAT WILL BE" 
PRINT"STRAIGHT OR WINDING. YOU WILL" 
PRINT" BE TESTED FOR HOW WELL YOU CAN" 
PRINT"STAY IN YOUR OWN LANE; MEANING," 
PRINT" DON'T HIT THE SHOULDER OR THE" 
PRINT"CENTER MEDIAN (UNLESS PASSING)." 
PRINT 
INPUT" KEY ENTER"; X 
CLS 
PRINT"WHEN А CAR COMES UP IN FRONT OF" 
PRINT" YOU, YOU MUST PASS. TO DO THIS" 
PRINT"PRESS AND HOLD THE «(RIGHT ARROW)" 
PRINT"KEY. AFTER PASSING QUICKLY MOVE" 
PRINT"BACK TO YOUR LANE BY PRESSING" 
PRINT"AND HOLDING THE «LEFT ARROW." 
PRINT"KEY. THESE KEYS ARE ALSO USED ТО" 
PRINT"KEEP YOUR CAR STEADY, IN YOUR" 
PRINT"LANE. IF YOU ARE PASSING AND" 
РНІМТ"АМОТНЕН CAR IS ALREADY IN THE" 


PRINT"PASSING LANE ..TAKE TO THE" 
PRINT"DITCH !!1!" 

PRINT"A PERFECT SCORE IS 0 (ZERO)" 
PRINT"MISTAKES OR ERRORS." 

PRINT Q$(125;" WILL NOW TAKE THE WHEEL" 
PRINT"PRESS ENTER WHEN READY"; 

INPUT X 
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450 CLS 

SAN REM ТЫП LANES / MEDIAN 

510 R1230:R2z44:CSzR1«3:M1z(CR2-R1)2/2) «R1 
920 REM STRAIGHT OR CURVE / CAR 
530 M3=M1:GOTO 700 

540 C=RND(2):Ci=RND(2):M=C(R2Z2-R1)0/2)+4+R1 
550 PRINTGCS,":1:";:IF ABS(C-C1)=0 THEN 580 
560 REM STRAIGHT 

570 TR=TR+1:GOTO 700 

580 REM LEFT OR RIGHT CURVES 

590 CZzRND(2) 

600 IF ABS(C1i-C2)=1 THEN 650 

610 REM LEFT 

620 IF ABS(Ri-M1)>=19 THEN 670 

630 RI-R1-1:R2zRZ-1:MzM-1 

640 СОТО 700 

550 НЕМ НІСНТ 

660 IF ABS(R2-M1)>=19 THEN 630 

670 Rl=R1+1:R2=R2+1:HM=M+1 

680 REM LANE AND А CAR 

700 REM USER CAR MOVEMENT 

710 QzPEEK(C(153430) 

720 IF R1>=960 OR R2>=960 THEN 740 
730 Н1=Н1+64:Н2=Н2+64:М1=М1+64 

740 PRINTGR1,"!";:PRINTGCS5,":I:'; 
750 РКІМТӘМ, "І"; : РКІМТеК2, "I"; 

799 IF РА-3 THEN СА=СА- 64 

756 IF CL=1 THEN CC=CC-64 

757 IF ABS(CA-C5)¢=3 THEN 1160 

760 IF M=0 PRINT@M, " L. 

770 IF а-32 THEN 810 

780 IF (0-64 THEN 830 

790 PRINT: IF TR)=225 THEN 970 

792 IF ABS(CC+64-C5)<=3 THEN 1220 
795 IF РА<23 AND C5»M3 AND Q<>32 THEN 870 
800 GOTO 900 

810 REM CAR LEFT 

812 IF С5<-0 THEN ZT=1:GOTO 1220 
815 IF PA=3 THEN C5zC5-2:GOTO 790 
820 CS=C5~-1:GOTO 790 

830 REM CAR RIGHT 

832 IF С5>2-62 THEN ZT=1:GOTO 1220 
835 IF PA=3 THEN С5=С5+2:60Тт0 850 
840 С5-С5-1 

850 IF РА<23 AND C5»M342 THEN 870 
860 GOTO 790 

870 REM STAYING IN WRONG LANE 

880 WL=WL+1:GOTO 1000 
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900 G1zPEEK(C5415360464) 
910 Q2=PEEK(C5+15360+66) 

920 IF 01%>32 AND Q4»32 THEN 940 

925 IF 0240032 AND Q4532 THEN 940 

930 IF ABS(M3-C5))=14 THEN ?60 

?35 GOTO 1000 

940 IF PA=3 THEN 1160 

950 REM WRONG LANE / SHOULDER 

960 WLsWL«1:GOTO 1000 

970 PRINTGO,"DRIVING TEST COMPLETED..." 
980 GOTO 1460 

1000 REM CAR TO PASS 

1001 IF РА=3 THEN 1040 

1010 PA=RND(20) 

1020 IF РА‹)1 THEN 1330 

1030 PA=PA+2 

1040 IF R1¢=860 THEN PA=0:GOTO 540 

1050 IF CA>=100 THEN 1070 

1060 IF CP=0 THEN СА-М-6 

1070 IF СР=1 THEN 1110 

1080 PRINTGCA,":4I»:"'; 

1090 CP-1 

1100 GOTO 540 

1110 REM CLEAR IF LESS THAN USER CAR 
1120 IF СА<-0 THEN 1140 

1130 GOTO 540 

1140 PA=0:CP=0:CL=0 

1150 GOTO 1190 

1160 REM HEAD-ON ? 

1170 IF ABS(CA-C5)<=4 THEN 1220 

1180 IF ABS(CA+1-C5)<=3 THEN 1220 

1190 IF PA+CP()4 AND CS«XRi-?62 THEN 960 
1200 IF РА«СР(24 AND C5)R2-962 THEN 960 
1210 GOTO 540 

1220 X=1:WL=-99 

1230 PRINTGCS5,"*";:PRINTGCS4«2,"*' ; 

1240 PRINTGC5«64-1,"*";:PRINTGC5«46444,"X"; 
1250 FOR U=1 TO 50:МЕХТ 

1260 PRINTGCS," "::PRINTGCS«6441,"X*"; 
1270 PRINT@C5+64-3," ^ 

1280 FOR Usi TO 25:NEXT 

1290 Х=Х+1 

1300 IF X>=11 THEN 1400 

1310 GOTO 1230 

1330 REM CAR IN OPPOSITE LANE 

1340 IF М(896 OR РА<(210 AND РА‹›15 THEN 540 
1350 IF CL=1 THEN 540 

1360 CL=1:CC=M+2 

1370 PRINTGM«2,":--:"; 
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1380 GOTO 540 

1400 REM FINISHED / DECEASED 

1410 PRINTG@O, ; 

1420 PRINT" YOU HAVE BECOME ANOTHER" 
1430 PRINT"HIGHWAY STATISTIC." 

1435 IF ZT=1 THEN ZT=0:GOTO 1460 
1440 PRINT"MOVE TO THE PASSING LANE" 
1450 PRINT"A LITTLE SOONER... .NEXT TIME." 
1460 UPCYP)=WL:YP=YP+1 

1470 IF YP>)D THEN 1520 

1480 PRINT 

1490 PRINT Q$(YP);" WILL NOW TAKE THE" 
1500 PRINT"WHEEL, GOOD LUCK !!!" 
1510 CP=0:CL=0:CC=0: СОТО 100 

1520 FOR Т-1 TO 2000:NEXT:CLS 

1530 PRINT"END OF DRIVING TEST." 
1540 PRINT'"TOTAL NUMBERS OF ERRORS" 
1550 PRINT"ARE AS FOLLOWS:" 

1560 FOR I=1 TO D 

1570 IF UP(I)=-?9 THEN 1620 

1580 PRINT Q$š(I);" HAD";UP(I); 

1590 PRINT'TOTAL ERRORS." 

1600 NEXT' 

1610 GOTO 1640 

1620 PRINT Q$(12;" IS DECEASED..." 
1630 GOTO 1600 

1640 PRINT 

1650 PRINT"END OF DRIVERS TEST." 
1660 END 


Variables and Strings 


D - Number of drivers 

ОФ() - First names of the D drivers 

YP - Players advance (counter) 

WL - Counter, staying in wrong lane 

PA - For use with alternate car 

CA - Alternate car 

R1 - Left side of lane 

R2 - Right side of lane 

Q1 & Q2 - Test for collisions 

C5 - User's car location 

M & M1 & МЗ - Center lane (median) 

C & Cl - Determine if straight or curved lanes will be used 

TR - Length of driving test, terminates when TR is greater than or 
equal to 225 

C2 - Left or right curve 
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Q - User's key closure 

CL - Car already in opposite lane 

CC - Alternate car location 

UP(YP) - Current player's score, UP(YP) = — 99 denotes that 
player is deceased (had head-on collision) 


Explanation of the Program Lines 


Lines 10-450 determine the number of drivers, initialize sev- 
eral of the variables, and display the general instructions. 

Lines 500-670 set the variables for lane location and left or 
right curves. 

Lines 689-750 test for user's car movement and print the two 
lanes down the video screen. 

Lines 755-757 print the other car and checks for a pass or a 
collision. 

Line 760 clears the center median. 

Lines 770-780 branch to the appropriate lines for the user's left 
or right driving movements. 

Line 790 includes a print statement that keeps the lanes jump- 
ing to simulate car movement and tests for a completed drivers test 
by determining whether or not TR is greater than or equal to 225. 

Line 792 checks for a collision. 

Line 795 tests the user's car in case he or she is staying in 
wrong lane. 

Lines 810-820 manipulate the variables to move the user's car 
to the left. 

Lines 830-860 manipulate the variables to move the user's car 
to the right. 

Lines 870-960 increase the counter for the user staying in the 
wrong lane and also test for collisions with the other car. 

Lines 970-980 display the message that the test is over. 

Lines 1000-1100 will print another car at bottom of video if the 
arguments are met, and there is not already another car at that 
location. 

Lines 1110-1150 clear the appropriate variables of the other 
car if the location of that car is less than the present location of the 
user's car. 

Lines 1160-1310 test for a head-on collision with the other car, 
demolish both if conditions are met, and branch to a message to go to 
the next driver. 

Lines 1330-1380 print а car in the opposite lane (the third car). 

Lines 1400-1660 advance to the next driver (player), print all 
scores, and terminate the program if conditions are met. 
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WHAT IS IT? 


You just might be saying ‘‘What is it" to yourself after com- 
pleting the game! The computer will give you five different clues to 
a selected word. Your score will be determined by how many 
guesses it takes you to figure out the word. Up to four people can 
beat their brains out with this one. 


Sample Run 

---WHAT IS IT?--- 

YOU WILL HAVE UP TO FIVE 

CLUES TO HELP YOU FIGURE OUT WHAT WORD THE 
COMPUTER HAS STORED IN ITS 
MEMORY. THE PLAYERS CAN TAKE 

AS MANY GUESSES AS THEY WISH, 

BUT THE MORE GUESSES IT TAKES 
YOU, THE LESS YOU'LL WIN. 

YOUR SCORE FOR EACH WORD STARTS 
AT 50; THEN 10 POINTS ARE DEDUCTED 
FOR EACH NEW CLUE. 

EACH ITEM CONTAINS 

ONLY ONE WORD; І.Е. “А SWORD’ 
WOULD JUST BE INPUT AS 

SWORD..... 
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NUMBER TO PLAY? 2 

FIRST NAMES OF THESE 2 PLAYERS, PLEASE 
?FRED 

?YIZZY 


FRED WILL PLAY..... 


FRED THIS IS CLUE NUMBER 1 
TO DESTROY 
WHAT IS THE WORD? GET RID OF 


FRED THIS IS CLUE NUMBER 2 
REMOVE 
WHAT IS THE WORD? TAKEAWAY 


FRED THIS IS CLUE NUMBER 3 
WEAR AWAY 
WHAT IS THE WORD? RUIN 


FRED THIS IS CLUE NUMBER 4 
CAUSE TO DISAPPEAR 
WHAT IS THE WORD? ERASE 


FRED THIS IS CLUE NUMBER 5 
ERASED 

WHAT IS THE WORD? DESTROY 
SORRY, FRED THAT WAS 5 
CLUES AND YOU DID NOT 
ENTER THE RIGHT WORD. 


YIZZY WILL PLAY..... 


YIZZY THIS IS CLUE NUMBER 1 
TO USE IS TO PAY 
WHAT IS THE WORD? RESTROOM 


YIZZY THIS IS CLUE NUMBER 2 
GOES ALMOST EVERYWHERE 
WHAT IS THE WORD? CAR 


YIZZY THIS IS CLUE NUMBER 3 
LOTS OF NOISE 
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WHAT IS THE WORD? KIDS 


YIZZY THIS IS CLUE NUMBER 4 
TERRIFIC SPEED 
WHAT IS THE WORD? RUNNER 


YIZZY THIS IS CLUE NUMBER 5 
SST IS ONE 
WHAT IS THE WORD? JET 


SORRY, YIZZY THAT WAS 5 
CLUES AND YOU DID NOT 
ENTER THE RIGHT WORD. 


FRED WILL PLAY..... 


FRED THIS IS CLUE NUMBER 1 
STHIPES OR SOLID 
WHAT IS THE WORD? ARMY 


FRED THIS IS CLUE NUMBER 2 
LARGE IS BETTER 
WHAT IS THE WORD? CAR 


FRED THIS IS CLUE NUMBER 3 
EATEN IN WARM WEATHER 
WHAT IS THE WORD? FRUIT 


FRED THIS IS CLUE NUMBER 4 
BETTER ICE COLD 
WHAT IS THE WORD? BEER 


FRED THIS IS CLUE NUMBER 5 
BUST IF DROPPED 

WHAT IS THE WORD? BOTTLE 
SORRY, FRED THAT WAS 5 


CLUES AND YOU DID NOT 
ENTER THE RIGHT WORD. 


YIZZY WILL PLAY..... 
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START 
INSTRUCTIONS 
PLAYERS 
AND 
NAMES 
GET RANDOM 
WORD 
PRINT PLAYER 
PRINT CLUE 


POINTS FOR 
PLAYER 
DELETE WORD 


ALL FIVE 
CLUES USED 


FINAL PLAYERS 
SCORES 


STOP 


ADVANCE TO 
NEXT PLAYER 


Flowchart for What Is It? 
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YIZZY THIS IS CLUE NUMBER 1 
TO DESTROY 


WHAT IS THE WORD? BEAT 


YIZZY THIS IS CLUE NUMBER 2 
REMOVE 
WHAT IS THE WORD? CARRYOUT 


YIZZY THIS IS CLUE NUMBER 3 
WEAR AWAY 
WHAT IS THE WORD? CARRYOUT 


YIZZY THIS IS CLUE NUMBER 4 
CAUSE TO DISAPPEAR 
WHAT IS THE WORD? FLUSH 


YIZZY THIS IS CLUE NUMBER 5 
ERASED 
WHAT IS THE WORD? PENCIL 


SORRY, YIZZY THAT WAS 5 
CLUES AND YOU DID NOT 
ENTER THE RIGHT WORD. 


STOP 


This is not a complete run. 


Program Listing 


10 REM PROGRAM TITLE: WHAT IS IT? 

20 CLEAR 1000 

30 RANDOM: CLS 

40 DIM М5(16),А5 (80) ,К(16) 

50 РКІМТ"--- WHAT IS IT? ---" 

60 FOR Т-1 ТО 1200:NEXT 

70 PRINT"YOU WILL HAVE UP TO FIVE" 

80 PRINT"CLUES TO HELP YOU FIGURE OUT WHAT 
WORD THE" 

0 PRINT'"COMPUTER HAS STORED WITHIN IT'S" 

0 PRINT"MEMORY THE PLAYER CAN TAKE" 

Н PRINT"AS MANY GUESSES AS THEY WISH," 

0 

0 


PRINT"BUT, THE MORE GUESSES IT TAKES" 
PRINT"YOU, THE LESS YOU'LL" 


PRINT"VIN.YOUR SCORE STARTS" 


150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
910 
320 
230 
940 
545 
550 
560 
570 
580 
290 
600 
610 


PRINT"AT 50.10 POINTS ARE DEDUCTED" 
PRINT"FOR EACH NEW CLUE." 
PRINT"EACH ITEM CONTAINS" 
PRINT"ONLY ONE WORD, I.E. ‘A SWORD'" 
PRINT"WOULD JUST BE INPUT AS" 
PRINT"'SWORD'...." 

FOR Т-і TO 10000:NEXT:CLS 
INPUT"NUMBER TO PLAY (1-4)";AM 

IF АМ<1 OR AM)4 THEN PRINT:GOTO 220 
PRINT"FIRST NAMES OF THESE";AM; 
PRINT"PLAYERS, PLEASE" 

FOR І-і TO AM 

INPUT X$(I)2:NEXT 

I=1:U=1 

X$=X$(I): PRINT X$;" WILL PLAY..... “ 
PRINT: IF U»-2 OR ІЛ/(20 THEN 340 
C=1:FOR As1 TO 16:READ W$ (À) 
R(A)=A:NEXT 

FOR A=1 TO 80:READ А$ (A): :NEXT 

REM GET ONE RANDOM WORD 

REM IF NOT DONE 

R=RND(16) 

IF R(R)=0 THEN 360 

W$=W$ (R):J=Rw5-4:JJ=J+4:TP=50 
PRINTX$;" THIS IS CLUE NUMBER" ; C 
AS=A$(J):PRINT AS$:REM A$(J) FOR CLUE 
INPUT"WHAT IS THE WORD" ;WW5 

IF WW$»W5 THEN 440 

R(R)=0:GOTO 560 

IF J=JJ THEN 470 
TP-TP-10:J2J«1:CzCa1 

PRINT:GOTO 390 

РНІМТ:ТР-0 

PRINT"SORRY, ";X$;" THAT WAS";C 
PRINT"CLUES AND YOU DID NOT" 
PRINT"ENTER THE RIGHT WORD." 

IF АМ-і THEN 540 

І= 1+1 

IF І2АМ THEN Ігі 

C=1:UsU4+1:IF U)=17 THEN 800 

IF G-1 AND UUU THEN 600 

FOR Т-і TO 1500:NEXT:CLS:GOTO 290 
TPCIOZTP(CIO«TP: PRINT 

PRINT"THAT IS THE WORD ";X$5 
PRINT"YOU NOW HAVE";TP(I)2;"POINTS." 
GOTO 510 

REM ALL USED 

FOR Т-1 TO 2000:NEXT 
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620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
800 
810 
820 
830 
840 
850 
860 
870 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1205 
1210 
1220 
1230 
1240 
1250 
1260 
1270 


56 


CLS 


THE DATA LIS 


iN 


ізі.” 
PRINT"HAVE BEEN USED.TOTAL SCORES" 
PRINT"FOR THE PLAYER ARE:" 
FOR 1=1 TO АМ 


PRINT"POINTS FOR 


"IX CI) ARES"; 


PRINT ТР(1) 


NEXT 


PRINT 


PRINT"END OF GAME RUN." 


END 


REM TEST FOR ALL USED 


G=1 


U=0:FOR T=1 TO 16 
IF R(T)<)0 THEN UzU-«1 


NEXT 


IF Us 


0 THEN 600 


REM MORE REMAIN 


меу: 


Uz1:GOTO 550 


REM WORD DATA 


DATA 
БАТА 
DATA 
DATA 


GEAR,WATERMELON, MONEY, OBLITERATE 
YEAR, FOOD, AIRLINER, THREAD 

TRAIN, OCEAN, PAPER, PARTY 

BOX, CENTER, SNAKE , DOOR 


REM DATA CLUES 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


HAS TEETH, DIFFERENT USES 
ROUND,MADE OF DIFFERENT MATERAL 
IN TOYS OR MACHINES 

STRIPES OR SOLID,LARGE IS BETTER 
EATEN IN WARM WEATHER 

BETTER ICE COLD,BUST IF DROPPED 
ALL NEED IT,EXCHANGES HANDS 
MANY USES,MADE IN ALL COUNTRIES 
YOU CAN'T TAKE IT WITH YOU 

TO DESTROY,REMOVE,WEAR AWAY 
CAUSE TO DISAPPEAR, ERASED 

CAN LEAP,CONTAINS i2 THINGS 

HAS MORE DAYS THAN ABOVE 
CELEBRATED AT FIRST 

STARTS WITH MONTH ONE 

YOU NEED IT,THOUSANDS OF VARITIES 
TOO MUCH MAKES YOU SICK 

MADE IN DIFFERENT WAYS 

MOSTLY GROWN 

TO USE IS TO PAY 

GOES ALMOST EVERYWHERE 

LOTS OF NOISE,TERRIFIC SPEED 
SST IS ONE 


1280 
1290 
1295 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1400 
1410 
1420 
1425 
1430 
1435 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


LARGER THAN A HAIR,MENDS 

HAS STRENGTH, USED TO MAKE CLOTHES 
IN ALL COUNTRIES 

HAS VHEELS,USES NO GAS 
PASSENGERS, CARGO, SETS ON RAILS 
IS NOT DRY,GOES TO MANY DEPTHS 
CAN BE VIOLENT,CONTAINS FOOD 
SALTY,CAN TEAR,CAN BE FOLDED 
MADE FROM À TREE,DIFFERENT SIZES 
LIGHT OR HEAVY 

FRIENDS GATHER,TO CELEBRATE 

CAKE OR DRINKS, CANDLES 

CAN LAST ALL NIGHT,FOLDED WHEN MADE 
LIGHTWEIGHT OR HEAVYWEIGHT 

USED FOR SHIPPING OR STORING 
MADE FROM TREES 

COMPUTER CAME IN ONE 

DIVIDES,NOT LEFT OR RIGHT 

PERSON MOST IMPORTANT 

OF A CIRCLE, POINT OF NERVES 

HAS NO LEGS,LONG OR SHORT 


CAN STRIKE,CAN KILL,SHEDS SKIN 
MOST OF WOOD,HAS A LOCK 

BLOCKS INTRUDERS, OPENS 

AND CLOSES 


Variables and Strings 


AM - Number of players (1-4) 
X$(D - First names of players 


WSD - Words 
АФ() - Clues 


R(D - For deleting already selected words 
J,JJ - For correct clue to word selected 
WW?$ - User input of word 

TP - Total points 

C - Clue counter, up to 5 

U - Counter for all words 

TP) - Total points gained by current player 


Explanation of the Program Lines 
Lines 10-210 clear memory for string entries, dimensions the 
arrays for words and clues, and displays the general instructions. 
Lines 220-270 request the number of players and their first 


names. 


Line 280 sets the counters for the players and words. 
Line 290 indicates the current player. 
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Line 300 branches to line 340 if the data has been read. 


Lincs 210.220 read all words and clues. R(A) is used for 
deleting already selected words. 

Lines 340-380 select one random word and using variables J & 
JJ, get its appropriate clue (line 380). 

Lines 390-590 allow the current player to enter his or her word 
to match the clues given. If the word does not match, the total points 
(TP) are decreased by 10. The computer then gives another clue, 
until 5 clues have been presented. If the user’s word does not match, 
he or she is given the number of points indicated by the current 
value of TP. That word is then deleted, and the program advanced to 
the next player if more than one is playing. If the current player has 
used all 5 clues and did not get the correct word, that word will be 
retained for future use, and the program again advances to the next 
player. 

Lines 600-720 print all the player's names and their total points 
and then terminate the game. 

Lines 800-870 test to see if all data elements (words) have 
been selected and deleted. If not, program flow will branch to the 
next player, and the computer will select one of those words. If all 
the words have been used, the program is terminated using lines 
600-720. 

Lines 1000-1520 contain all the data elements for the words 
and clues. 
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Games of General Interest 


Where's the Necessary Room lets you experience drunkenness 
without touching a bottle. See if you can find your way through the 
bar with the help of an inebriated computer. 

Troubles allows you to sob on the shoulders of the computer, 
which will offer you some sound advice. 

General Store pressures you to add prices together quickly. 
The swiftest thinker will win the game. 

Respect Your Computer is a game you'll never win! 

Love One Another lets you bring your problems with your 
spouse or friend to the computer and helps you resolve your dis- 
agreements. 

Date Service helps you determine who you are most com- 
patible with. 

Key a Date allows you to keep a secret file of all those you 
might like to call for a date. The information is safe from prying 
eyes. 
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Door to 


another 


floor 


WHERE'S THE NECESSARY ROOM? 


You're minding your own business inside this bar that is large 
enough to let two pro-football teams battle it out. You've imbibed 
quite a lot of liquid, and now you have an urge, a pain, and you must 
relieve it soon or “#”! So, instead of asking anyone, you and your 
computer will now try and locate that little room. There are plenty 
of meanies in this bar as well as many rooms ! Don't let the computer 
fool you. 


Sample Run 


WHERE'S THE NECESSARY ROOM??? 
SEE THE INSTRUCTIONS... YOU DRUNK? YES 


SO HERE YOU ARE AGAIN, YOU LUSH!!! 
FILLED YOUR KIDNEYS TO THE BRINK; 
YOUR HEAD IS SPINNING AND WHAT 
DO YOU NEED ?? NATURALLY, THIS 
BEING A COMPUTER PROGRAM, І YOUR 
COMPUTER WILL TRY AND HELP YOU 
LOCATE THAT LITTLE ROOM (IF THERE 
IS ONE!!) STEP BY STEP. 

NATURALLY THIS BEING A COMPUTER 
PROGRAM (DID | SAY THAT?) | HAVE 
ALSO HAD A LITTLE TOO MUCH... 
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HIT THE WHITE KEY? 

VOU DRI INKIII 

AS | SAY...I AM ALSO A LITTLE 

TIPSY, IF MY CIRCUITS HOLD TO... 
GETHER LONG ENOUGH, WE TOGETHER 
WILL FIND THAT ROOM. WHAT'S YOUR 
МАМЕ CLYDE? GRETA 

YOUR KIDDING, SUCH A LONG NAME. 
SO...TO FIND THAT ROOM, | WILL 
INSTRUCT YOU ON THE ROUTE. YOU 
IN TURN WILLL PRESS EITHER THE 
LEFT ARROW KEY...OR THE RIGHT 
ARROW KEY, THAT IS IF YOU 

BELIEVE WHAT I TELL YOU. IF 

LUSH, HIT THAT KEY AGAIN? 

YOU DO NOT BELIEVE ME, PRESS 
THAT LONG BAR, AT THE BOTTOM 

OF THE KEYBOARD...OK GRETA? 
EXCUSE ME WHILE | UNSCRAMBLE A 
FEW FLIP-FLOPS..... 


GRETA WE ARE NOW AT TABLE 35 

MEANING, WE MUST TRAVEL 35 

TABLES ТО REACH THE ВАН. 

TOTAL DISTANCE, І WOULD ESTIMATE 

TO BE AROUND 144 FEET. 

GLANCING AROUND (SOMETHING YOU'RE 

NOT TOO GOOD АТ) | JUDGE THERE ARE ABOUT 68 
CUSTOMERS WE MUST GET PAST... 


OK, LUSH...1 MEAN GRETA 

GET UP AND MOVE RIGHT, AWAY 

FROM MS. FOUL MOUTH. SHE'S A MEANIE 
WE DON'T WANT TO TANGLE WITH. 


PRESS THE RIGHT ARROW OR 
THE LEFT ARROW OR THE LONG 
BAR...YOU DRUNK, QUIT BOBBIN’ 
YOUR HEAD !! 

OK, LUSH...| MEAN GRETA 

GET UP AND MOVE LEFT, AWAY 


62 


PRINT 
INSTRUCTIONS 


SET 
VARIABLES 


READ 
MESSAGE DATA 


MOVEMENT THROUGH 
BAR/OUTPUT 
MESSAGES 


: | 

Nk 

- 
Y 


PRINT MESSAGE 
ON DOOR 


FINAL 
MESSAGE 


Flowchart for Where's the Necessary Room? 


ALL TABLES 
PASSED 


CONTINUE Tum 
MOVEMENT 


FROM MR. SMASH. HE'S A MEANIE 


VAI ГУМА Т VALAMIT TON TANI OEC AAT LI 
үч МУМ £ МҮМ! 1 AZ ІРІ ENA bate WW Aa t gn 


PRESS THE RIGHT ARROW OR 
THE LEFT ARROW OR THE LONG 
BAR... YOU DRUNK, QUIT BOBBIN' 
YOUR HEAD !! 

WE'RE GETTING CLOSER GRETA 
HOLD THAT BLADDER !!! 


OUR DISTANCE IS NOW AT 41 FEET. 
WITH 17 TABLES AND 

STILL 79 CUSTOMERS TO GET BY. 
EXCUSE ME, THAT’S 76 CUSTOMERS. 
A FEW JUST PASSED OUT... 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES 

STILL 76 CUSTOMERS TO GET BY. 

OK LUSH...| MEAN GRETA 

ALL DIRECTIONS POINT LEFT, AWAY 
FROM MR. P. WADDLE. HE'S A MEANIE, 
WE DON'T WANT TO TANGLE WITH. 


I SAID, GO LEFT, YOU WENT RIGHT 

GRETA, YOU ARE A LITTLE MORE 

DRUNK THAN | FIRST THOUGHT !! 

YOU JUST STEPPED ON MR. MUZZLE TOES. 
CAN'T YOU LISTEN TO DIRECTIONS ?? 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 

STILL 76 CUSTOMERS TO GET BY. 
EXCUSE ME, THAT'S 75 CUSTOMERS. 
A FEW MORE JUST PASSED OUT... 


OUR DISTANCE STANDS AT 41 FEET. 

WITH 17 TABLES AND 

STILL 75 CUSTOMERS TO GET BY. 

OK LUSH...] MEAN GRETA 

LOOK RIGHT THEN MOVE RIGHT, AWAY FROM MS. LEAN 
TOO. SHE'S A MEANIE 
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WE DON'T WANT TO TANGLE WITH. 
WRONG DOOR !! 
THIS IS THE BASEMENT. 


OUR DISTANCE STANDS AT 41 FEET. 

WITH 17 TABLES AND 

STILL 75 CUSTOMERS TO GET BY. 

OK, LUSH...| MEAN GRETA 

LOOK LEFT THEN MOVE LEFT, AWAY 

FROM MR. MUZZLE. HE'S A MEANIE 

WE DON'T WANT TO TANGLE WITH. 

GUESS WHAT YOU'VE JUST WALKED 

INTO? YES, THE OFFICE! FEEL EMBARRASSED, YOU 
DRUNK !! 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 

STILL 75 CUSTOMERS TO GET BY. 
OK,LUSH...| MEAN GRETA 


PRESS THE RIGHT ARROW OR 

THE LEFT ARROW OR THE LONG 
BAR... YOU DRUNK, QUIT BOBBIN’ 
YOUR HEAD !! 

ГМ SORRY, MY MISTAKE, I TOLD 

YOU THE WRONG DIRECTION GRETA. 
DINGY !! YOU SHOULDN'T HAVE 
LISTENED THIS TIME !!! 


HOW DID THAT BOTTLE THAT MS. FOUL MOUTH 
JUST BROKE OVER YOUR HEAD FEEL ?? 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 

STILL 75 CUSTOMERS TO GET BY. 
EXCUSE ME, THAT'S 70 CUSTOMERS. 
A FEW MORE JUST PASSED OUT... 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 

STILL 70 CUSTOMERS TO GET BY. 
OK, LUSH...| MEAN GRETA 
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WE WILL NOW MOVE RIGHT 


ГМ SORRY, MY MISTAKE, | TOLD 

YOU THE WRONG DIRECTION GRETA. 
YOU SHOULDN'T HAVE 

LISTENED THIS TIME !!! 


OF ALL THE MEANIES TO RUN IN TO !!! 
NEXT TIME MS. FOUL MOUTH WILL PROBABLY 
FINISHING BREAKING YOUR FACE... 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 
STILL 70 CUSTOMERS TO GET BY. 


STOP 
This is not a complete run. 


Program Listing 


10 REM PROGRAM TITLE: WHERE'S THE 

20 REM NECESSARY ROOM ??? 

30 CLS 

40 PRINT"WHERE'S THE NECESSARY ROOM ???" 
50 PRINT 

60 PRINT"SEE THE INSTRUCTIONS...'; 

65 FOR Is1TOS00:NEXT:PRINT"YQOU DRUNK", 
70 INPUT XŠ 

80 IF X$<>"¥" AND Х$ <) "ҮЕ5" THEN DD=1: 


GOTO 275 
90 PRINT"SO HERE YOU ARE AGAIN, YOU 
LUSH !!!" 


100 PRINT" FILLED YOUR KIDNEYS TO THE BRINK; ”" 
110 PRINT’ YOUR HEAD IS SPINNING AND WHAT" 
120 PRINT"DO YOU NEED ?? NATURALLY, THIS" 
130 PRINT" BEING A COMPUTER PROGRAM, I YOUR" 
140 PRINT"COMPUTER WILL TRY AND HELP YOU" 
150 PRINT"LOCATE THAT LITTLE ROOM (IF THERE" 
160 PRINT"IS ОМЕ!!) STEP BY STEP." 

170 PRINT"NATURALLY THIS BEING А COMPUTER" 
180 PRINT"PROGRAM (DID I SAY THAT?) I HAVE" 
190 PRINT"ALSO HAD A LITTLE TOO MUCH..." 

200 PRINT 


210 
220 
230 
240 
220 
260 
270 
275 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
220 
230 
940 
550 
560 
270 
972 
280 
590 
600 
610 
615 
620 
630 
640 
650 


INPUT"HIT THE WHITE KEY"; X$ 

CLS 

РНІМТ"ҮОУ DRUNK!!!" 

PRINT"AS I SAY...I AM ALSO A LITTLE" 


PRINT"TIPSY, IF MY CIRCUITS HOLD TO...' 


PRINT"GETHER LONG ENOUGH, WE TOGETHER" 


t 


PRINT"WILL FIND THAT ROOM. WHAT'S YOUR" 


IF DD=1 THEN PRINT"THE "; 

INPUT"NAME CLYDE";N$ 

IF LEN(N$))=3 THEN 310 

GOTO 320 

PRINT"YOUR KIDDING, SUCH A LONG NAME." 
PRINT:IF DD=1 THEN 460 

PRINT"SO...TO FIND THAT ROOM, I WILL" 
PRINT"INSTRUCT YOU ON THE ROUTE. YOU" 
PRINT"IN TURN WILL PRESS EITHER THE" 
PRINT"LEFT ARROW KEY...OR THE RIGHT" 
PRINT"ARROW KEY, THAT IS IF YOU" 
PRINT"BELIEVE WHAT I TELL YOU. IF" 
PRINT 

INPUT"LUSH, HIT THAT KEY AGAIN";XS$ 
CLS 

PRINT"YOU DO NOT BELIEVE ME, PRESS" 
PRINT"THAT LONG BAR, AT THE BOTTOM" 
PRINT"OF THE KEYBOARD... OK ";N$;"?" 
FOR I-1TO2000:NEXT 

PRINT"EXCUSE ME WHILE I UNSCRAMBLE A" 
PRINT"FEW FLIP-FLOPS..... À 

RANDON 

REM TABLES 

TA=RND(50):IF ТА‹=15 THEN 500 

REM START DISTANCE FROM ROOM 
D=RND(150) 

IF D(=50 THEN 520 

REM CUSTOMERS IN BAR 

P=RND(100) 

IF Р<-20 THEN 550 

REM NUMBER OF WRONG DOORS 

REM LEAVE TWO FOR FINAL 

DR=RND(7) 

IF DR<=4 THEN 580 

REM READ WRONG DOOR TITLES 

FOR I=1TODR:READ 0$‹(1):0(1)=1:МЕХТ 
FOR I=DR+1TO10:READ Е$(1):МЕХТ 

DATA WOMEN'S ROOM,ATTIC,EXIT,BASEMENT 
DATA ОЕҒІСЕ,МІМЕ CELLAR,LUNCH 

DATA LAUNDRY,DRESSING,NECESSARY 
J=DR-4:PQ=1:PJ=1:REM TIME / MEANIES 
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FOR I=1TOS:READ M$ XI): :M(I)=I 

IF LEPT6€ (M$ ct), £4 "M" THEM 440 
ELSE NEXT 

DATA MR. MUZZLE,MR. SMASH 

DATA MS. LEAN TOO,MS. FOUL MOUTH 
DATA MR. P. WADDLE 

REM SOME STRING CONTENTS 
K$z"STILL":B$"MY CPU HURTS" 
L$"LEFT":R$z"RIGHT":Z$2"ZZZZZZZZZZ" 
FOR Is1TO1500:NEXT 

PRINT 

PRINT N$;" WE ARE NOW AT TABLE";TA 
PRINT"MEANING, WE MUST TRAVEL" ; ТА 
PRINT'"TABLES TO REACH THE BAR." 
PRINT'"TOTAL DISTANCE, I WOULD ESTIMATE" 
PRINT"TO BE AROUND"; D; "FEET." 
PRINT'GLANCING AROUND(SOMETHING YOU'RE" 
PRINT"NOT TO GOOD AT) I JUDGE.THERE 
ARE ABOUT";P 

PRINT"CUSTOMERS МЕ MUST GET PAST..." 
REM MESSAGE ---- B$ 

ш-64:іІ-0 

LL*64:IzI«-1:FOR ІІ-170500:МЕХТ 
PRINTGL,STRING$(35,32) 
PRINT@L+30,MID$(B$,1,1):IF L(z896 THEN 
850 

CLS 

GOSUB 1070:GOTO 920 

PRINT"OK, LUSH...I MEAN ";NS5 
T-0: RETURN 

GOSUB 900:GOSUB ?25:GOTO ?60 

REM MEANIE SELECT 
M=RND(5):IF M(M)=0 THEN 930 
M$=M$ (M) :M(M)> = 0 


IF LEFTS(M$,2)="MS" THEN C$-". SHE" 
ELSE С5-". HE" 

RETURN 

РНІМТ"СЕТ UP AND MOVE ";T$;", AWAY" 
PRINT"FROM ";М5;" ";C$,;,"'S A МЕАМІЕ," 


PRINT"VE DON'T WANT TO TANGLE WITH." 
GOSUB 1000:GOTO 1130 

WS$zINKEYS: TZT«*1:IF Т›=50*100 THEN 1025 
IF W$z"" THEN 1000 

WWzASCOWS$):RETURN 

PRINT 

PRINT"PRESS THE ";R$;" ARROW, OR" 
PRINT"THE ";L$;" ARROW OR THE LONG" 
PRINT"BAR...YOU DRUNK, QUIT BOBBIN'' 


1060 PRINT"YOUR HEAD !!":T=0:GOTO 990 

1070 REM GET LEFT / RIGHT 

1080 FOR Is1TO10 

1090 YsRND(2) 

1100 IF Y=1 THEN T$=L$:GOTO 1120 

1110 Т5-Н9 

1120 NEXT:RETURN 

1130 IF WW+85=93 THEN 1170 

1140 IF МУ%85-94 THEN 1170 

1150 IF WW=32 THEN 1170 

1160 PRINT:GOTO 1030 

1170 WW=ASC(W$) 

1180 IF ABSCT-J))=100 GOSUB 1520 

1190 IF T$="RIGHT" AND WW+85=94 THEN 1440 

1200 IF T$="LEFT" AND WW+85=93 THEN 1440 

1210 IF WW=32 THEN PRINT:GOTO 1700 

1215 IF T$="RIGHT" THEN F$-L$ ELSE F$-R$ 

1216 PRINT 

1220 PRINT"I SAID, GO ";T$;", YOU WENT ";F$ 

1230 PRINT N$;", YOU ARE A LITTLE MORE" 

1240 PRINT"DRUNK THAN I FIRST THOUGHT !!" 

1250 RE=RND(6):UU=RND(5) :M$=M$ (UU) 

1260 ON RE GOTO 1270,1290,1320,1345,1365, 
1400 

1270 PRINT M$;" JUST BROKE PART" 

1275 PRINT"OF YOUR FACE !!" 

1280 GOTO 1430 

1290 PRINT" YOU JUST STEPPED ON ";M$;" TOES," 

1300 PRINT"CAN'T YOU LISTEN TO DIRECTIONS 
99 tt 

1310 GOTO 1430 

1320 PRINT"HOW DID THAT BOTTLE THAT ";M$ 

1330 PRINT"JUST BROKE OVER YOUR HEAD FEEL??" 

1340 GOTO 1430 

1345 IF ЈА=1 THEN 1250 

1350 PRINT"MOST LUSHES LISTEN, YOU ARE AN" 

1360 PRINT"EXCEPTION...DINGY !!!":GOTO 1430 

1365 IF JAs1 THEN 1250 

1370 PRINT"THREE KEYS TO PRESS, AND YOU MY" 

1380 PRINT"DRUNK FRIEND, PRESS THE WRONG 
ONE 1" 

1390 GOTO 1430 

1400 PRINT"OF ALL THE MEANIES TO RUN IN 
TO !!!" 

1410 PRINT"NEXT TIME ";M$;" WILL PROBABLY" 

1420 PRINT"FINISH BREAKING YOUR FACE..." 

1430 PRINT:E$s"STANDS":GOTO 1660 

1440 REM MOVE CORRECT ? 
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1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1605 
1610 
1615 
1620 
1630 
1640 
1650 
1660 
1665 
1670 
1673 


1676 
1680 
1685 
1690 
1700 
1710 
1720 
1730 
1740 
1750 


1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
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PLzRND(10) 

IF PL¢=DR THEN 1610 ELSE PRINT 
PRINT"I'M SORRY, MY MISTAKE, I TOLD" 
PRINT"YOU THE WRONG DIRECTION ";N$,;"." 
PRINT"DINGY !! YOU SHOULDN'T HAVE" 
PRINT"LISTENED THIS TIME 111" 

PRINT: JA=1:GOTO 1250 

REM SNORE MESSAGE 

REM TAKING TOO LONG / WRONG KEY 

FOR i=1TO LEN(ZS9) 

PRINT MID$(Z$,1,1); 

FOR ЕН-1Т050:МЕХТ ER 

NEXT 1: PRINT 

PRINT" THOUGHT I WOULD CUT A FEW" 
PRINT"Z'S WHILE YOU WERE LOOKING" 
PRINT"FOR THE KEYS..... ": PRINT 

ЖОН Iz1TO1200:NEXT: RETURN 

IF D<=50 THEN 1830 ELSE PRINT 
PRINT"WE'RE GETTING CLOSER, "¿N$ 
PRINT"HOLD THAT BLADDER !!!": PRINT 
D-CGD-INT(OD/TA2-10)2: E$zZ"IS NOW" 

IF D<=0 THEN 2500 

TAZTA-1:PzP-RND(5) 

PRINT"OUR DISTANCE ";E$," AT";D;"FEET." 
IF TA(z0 PRINT"AND ";:GOTO 1675 
PRINT"VITH ";TA; "TABLES, AND" 

IF Р<=0 THEN PRINT"NO CUSTOMERS TO GET 
BY !!":GOTO 1690 

IF Р<=10 THEN K$z"ONLY" 

PRINT К5;" ";P;"CUSTOMERS TO GET BY." 
IF RND(TA) ¢(=10 AND XX=0 THEN 2300 
XX=0:GOTO 2100 

REM SPACE BAR ? 

PL=RND( Š) 

IF РІ.<-2 THEN 1790 

PRINT"WHY? WHY DID YOU PRESS THE SPACE" 
PRINT"BAR?? OF ALL THE TIMES NOT TO" 
PRINT"BELIEVE ME, THIS TIME I WAS " 
;R$;"." 

PRINT"YOU ARE AT THE SAME PLACE YOU" 
PRINT"WERE YOU...YOU DINGY 68!/$&'!" 
PRINT:GOTO 12250 

PRINT"YOU WERE RIGHT, ";N$,;" I TOLD" 
PRINT"A BLOODY LIE AND YOU" 
PRINT"DIDN'T FALL FOR IT 111" 
PRINT:GOTO 1610 

REM WRONG DOOR MESSAGE 

IF PQ>)DR THEN 1615 


1850 
1860 
1870 
1880 
1885 
1890 
1900 
1910 
1920 
1930 
1940 
1945 


1950 
1955 
1960 
1970 
1980 
1990 
2000 
2010 


2020 
2025 
2030 
2040 
2045 
2050 
2055 
2060 
2065 
2070 
2080 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2165 
2170 
2175 
2180 
2185 
2190 
2195 
2200 


DA=RND(DR) 

IF U(DA)=0 THEN 1850 

V$=D$ (DA) 

UCDA)=0: РО= РО +1 

IF MID$(V$,2,1)="X" THEN 2040 
DA=RND(6):I1IF DA=6 THEN 1615 

ON DA GOTO 1910,1940,1970,2010,2040 
PRINT"YOU'VE JUST WALKED INTO THE ";У5 
PRINT"FEEL EMBARRASSED, YOU DINGY !! 
GOTO 2070 

PRINT"NO PLACE TO DRAIN A BLADDER HERE" 
IF LEFT$(V$,2)="OF" PRINT"IN THE ";У%;" 
":GOTO 2070 

PRINT'"THIS IS THE ",;V$; 

IF RIGHT$(V$,2)="CH" PRINT"ROOM !!" 
PRINT:GOTO 2070 

PRINT"FEEL ODD ? YOU'VE JUST STEPPED" 
PRINT" (ALMOST) STRAIGHT INTO THE ";V$ 
PRINT"HAVING PROBLEMS READING SIGNS ??" 
GOTO 2070 

PRINT'W RONG DOOR DINGY 

i [M 

PRINT'"THIS IS THE ";У%; 

IF RIGHT$(V$,2)="CH" PRINT" ROOM" 
PRINT:GOTO 2070 

PRINT"GUESS WHAT YOU'VE JUST WALKED" 
IF LEFT$(V$,2)22"EX" THEN 2065 
PRINT"INTO? YES, THE ";V$; 

IF RIGHT$(V$,2)z2"CH" PRINT'"ROOM !!" 
PRINT:GOTO 1920 

PRINT"OUT THE ";V$,;,".":GOTO 2070 
PRINT: IF LEFT$(V$,2)2"EX" THEN 2250 
GOTO 2410 : 

REM CONTINUE MOVEMENT TO HEAD 
PJ=aPJ+1:GOSUB 900 

IF PJ<=5 GOSUB 930 

FOR Is1TO33500:NEXT:GOSUB 1070 
WE=RND(5):REM MOVEMENT MESSAGE SELECT 
ON WE GOTO 2160,2170,2180,2190,2200 
PRINT"WE WILL NOW MOVE ";Т$; 

GOTO 2220 

PRINT"ALL DIRECTIONS POINT ";T$; 

GOTO 2220 

PRINT T$;" IS THE RIGHT DIRECTION "; 
GOTO 2220 

PRINT"LOOK ";T$;" THEN MOVE ";Т$; 
GOTO 2220 

PRINT"DON'T STUMBLE NOW, DINGY !!!" 
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2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2305 
2310 
2315 
2320 
2325 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2500 
2510 
2520 
2530 
2540 
25850 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
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PRINT"MOVE SLOWLY 
IF PJ<=4 PRINT", 
PRINT 

GOTO 990 
PRINT"GOING OUT THE ";V$;" WASN'T TOO" 
PRINT"SMOOTH...TURN AROUND, THEN WE'LL" 
PRINT"CONTINUE TO LOCATE THAT ROOM." 
FOR 1-1703000:МЕХТ 

GOTO 2100 

REM REMOVE MORE CUSTOMERS 

IF Р<-3 THEN XX=i:GOTO 1690 
AA=RND(5):DF=DF+1:XX=1 

IF DF>=4 THEN 2340 ELSE Р-Р-АА 
PRINT"EXCUSE ME, THAT'S";P;"CUSTOMERS." 
IF DF>=2 THEN MM$="MORE" 

PRINT"A FEW ",MM$;" JUST PASSED OUT..." 
IF RND(P)(s10 THEN 2360 

GOTO 2410 

FOR Iz1TO2000:NEXT:IF DF>=7 THEN 24r0 
PRINT"HOLD IT !!! THE BOUNCER JUST" 
AA=RND(3):P=P-AA 

PRINT"CARRIED OUT";AA;"MORE, FOR" 
PRINT"FIGHTING DURING HAPPY HOUR..." 
FOR Iz1TO2000:NEXT 


"T$; 
AWAY":GOTO 970 


PRINT 

E $ = "STANDS": JA=0 

GOTO 1660 

REM FINAL -- ROOM REACHED 


PRINT"YOU'VE REACHED THE ROOM !!!" 
FOR I-z1TO2500:NEXT 

I-RND(10) 

IF I4sDR THEN 2530 

PRINT"IF YOU CAN KEEP YOUR EYES OPEN" 
PRINT"LONG ENOUGH...RAISE YOUR HEAD" 
PRINT"AND READ THE SIGN ON THE DOOR." 
D$zF$(I) 

Xz0 

FOR I-1TO900:NEXT 
PRINT:X-X«1 

IF X=? PRINTG?85,D5," 
IF Х<-14 THEN 2600 
IF LEFT$(D$,1)0z"N" 
PRINT 

PRINT"** T HE WRONG 
PRINT"ALL THIS FOR NOTHING, 
GOTO 2760 

PRINT"THIS IS IT !!!" 
PRINT"THE RIGHT NECESSARY ROOM 


ROOM" 

THEN 2690 

DOOR xx" 
DINGY |!!!" 


2710 PRINT"RELIEF IS ON THE WAY..." 

2720 PRINT 

2730 FOR Izi1TO4000:NEXT 

2740 PRINT"NOW THAT YOU ARE FEELING MUCH" 
2750 PRINT"BETTER, SHALL WE НАУЕ..... T 

2760 PRINT"ANOTHER RUN OF NECESSARY ROOM"; 
2770 INPUT X$ 

2780 IF Х5<20“Ү" AND ХХ) "ҮЕ" THEN 2810 
2790 PRINT"GET TO DRINKING.. HERE WE GO !!" 
2800 FOR I=1T01200:NEXT: CLEAR: DD=1:GOTO 275 
2810 PRINT 

2820 PRINT"END" 

2830 END 


Variables and Strings 


DD - Instructions not needed (when equal to 1) 
N$ - User's name 

TA - Number of tables 

D - Distance to room 

P - Customers in bar 

DR - Wrong doors, D$(D 

М$(1) - Meanies in bar 

J - Time loop 

Pj - Moves toward room 

M - Selection of meanie 

WW - User's key closure 

RE - For random message, along with UU and M$ 
PL - Correct move (random) 


Explanation of the Program Lines 


Lines 10-270 display the general instructions if they are re- 
quired. 

Line 280 inputs the user's name. 

Lines 290-470 display the rest of the instructions. 

Lines 480-720 set the variables for play and read all the data 
statements. 

Lines 750-820 are messages to the user concerning distances, 
tables, and customers. 

Lines 830-870 let the user know how the computer feels. 

Lines 900-910 display a message used by GOSUB statements 
throughout the program. 

Lines 925-955 select a meanie. 
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Lines 960-980 tell the user which direction to take. 

Lines 1000-1020 form the INKEYS routine for the user's di- 
rection entry. 

Lines 1025-1060 display a message indicating that the user is 
taking too long to decide. 

Lines 1070-1120 get a left/right direction for the user. 

Lines 1130-1160 sort the key closures indicating the direction 
of movement. 

Lines 1170-1430 display more messages concerning move- 
ment to the room. 

Lines 1440-1510 display a wrong move message. 

Lines 1520-1605 display a message indicating that the user is 
taking too long. 

Lines 1610-1690 display a message indicating that the distance 
and number of tables are decreasing. 

Lines 1700-1820 display messages in response to the pressing 
of the space bar. 

Lines 1830-2440 display various messages concerning the 
user's position. 

Lines 2500-2830 display the final message printed on door of 
the room the user has come to. 
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The 
relativeS g 


All mix 
whiskey 


TROUBLES 


Depending upon the nature of your particular troubles, the com- 
puter will try and give you a solution. Of course, it would take more 
memory space that any computer has to cover every aspect of a 
person's troubles, so be patient with your computer. Give it the 
precise information it requires and who knows? 


Sample Run 


TROUBLES 


SO YOU HAVE SOME TROUBLES AND 
YOU ARE TURNING TO ME, YOUR COMPUTER, 
| WILL HELP YOU IN EVERY WAY | 
CAN, USING LOGICAL DEDUCTIONS. 
PLEASE BE SPECIFIC 

WHEN ANSWERING ALL QUESTIONS 

I WILL SUBMIT TO YOU. THE MORE 
SPECIFIC YOU ARE, THE BETTER 
YOUR ANSWER WILL BE. 

USE NO COMMAS, SEMICOLONS, 
COLONS OR PERIODS. 


YOUR FIRST & LAST NAME?TARGET MOORE 
MALE (М) OR FEMALE (Е)? ~ 
TRY AGAIN: CHECK IF NECESSARY. 
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MALE (М) OR FEMALE (F)?M 


том СС 
аам л) 


DATA COLLECTED THUS FAR: 

NAME TARGET MOORE 

SEX: MALE 

CONFIRM (Y/N)?Y 

WITH MORE THAN 1 WORD AND LESS 

THAN 10, DESCRIBE YOUR TROUBLES? WOMEN 

BE A LITTLE MORE SPECIFIC, WHAT 

ABOUT WOMEN? 

WITH MORE THAN 1 WORD AND LESS 

THAN 10 DESCRIBE YOUR TROUBLES? 

CAN'T GET ENOUGH RESPONSE FROM WOMEN 
TROUBLES 


SORTING WORDS 
JUST HOW MANY WOMEN?3 


GOOD GRIEF !! 
IS ANY ONE OF THESE YOUR WIFE?YES 


DO YOU FEEL YOU ARE CHEATING ON 
YOUR WIFE AND YOURSELF?YES 


YOU SHOULD FORGET THE OTHER 
WOMEN BEFORE YOU GET DEEPER THAN 
WHAT YOU ARE NOW...TARGET 


DO YOU AGREE 


? NO 


WHY DON'T YOU AGREE TARGET 21 CHOOSE TO PLAY 
THE FIELD 


BECAUSE YOU CHOOSE TO PLAY THE FIELD? 
HOW LONG HAS THIS BEEN 

GOING ON TARGET 

SELECT ONE: 

1» DAYS 
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START 


INSTRUCTIONS 


NAME 


MALE — 
FEMALE 


INPUT TROUBLE 


4 
i 

N 
SEPARATE EACH 
WORD-SENTENCE 
COMPARE WITH 
WORDS-DATA LIST 


X$(1) = АЖО) 


i 


QUESTIONS 


Flowchart for Troubles. 


OUTPUT 
SOLUTIONS 


MORE 
TROUBLES 


N 
STOP 
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2> WEEKS 
S> MONTHS 


4> YEARS 


?4 


DID THESE WOMEN FIND OUT 
ABOUT ONE ANOTHER TARGET ?YES 


THAT'S THE TROUBLE: JUST STICK 
TO ONE WOMAN FOR AWHILE 
THINGS WILL WORK OUT MUCH 
BETTER. YOU'LL SEE, TARGET . 
LIKE TO TRY ANOTHER?NO 


END OF PROGRAM... 


Program Listing 


E10 REM PROGRAM TITLE: TROUBLES 


20 
30 
40 
50 
60 


70 
80 
? 0 
100 
110 
120 
130 
140 
145 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
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CLS:CLEAR 1200:GOSUB 30:С0Т0 50 

PRINT TAB(10)"T R O U BL E S" 

PRINT: RETURN 

PRINT"SO YOU HAVE SOME TROUBLES AND" 
PRINT"YOU ARE TURNING TO ME, YOUR 
COMPUTER." 

PRINT"I VILL HELP YOU IN EVERY WAY I" 
PRINT"CAN USING LOGICAL DEDUCTIONS." 
PRINT"PLEASE BE SPECIFIC" 

РНІМТ"МНЕМ ANSWERING ALL QUESTIONS" 
PRINT"I VILL SUBMIT TO YOU. THE MORE" 
PRINT"SPECIFIC YOU ARE, THE BETTER" 
PRINT"YOUR ANSWER WILL BE." 

PRINT"USE NO COMMAS, SEMICOLONS," 
PRINT"COLONS OR PERIODS." 
PRINT:PRINT"YOUR FIRST 6 LAST МАМЕ"; 
INPUT N$:GOSUB 490 

INPUT"MALE (М) OR FEMALE ((Ғ)";5% 

IF S$="M" THEN S&="MALE":GOTO 220 

IF S$="F" THEN SS$="FEMALE" : GOTO 220 
PRINT'"TRY AGAIN; CHECK IF NECESSARY." 
GOTO 170 


CLS 

GOSUB 30 

REM BEGIN 

PRINT"DATA COLLECTED THUS FAR:" 
PRINT'"NAME : ";NS$ 


270 
290 
300 
310 
320 
325 
330 
340 
345 
350 
360 
370 
375 
380 
390 
400 
410 
420 
430 
440 
445 
450 
455 
460 
465 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 


PRINT"SEKX: ";5% 

GOSUB 550 

INPUT"CONFIRM (Y/N)'';A$ 

IF А$‹›"Ү" THEN F$-"":GOTO 140 
DIM Х6(46) ,А(12) ,А$ (12) 
P$2z"":Wz1:PRINT 


PRINT"WITH MORE THAN 1 WORD AND LESS" 
PRINT"THAN 10, DESCRIBE YOUR TROUBLES" 
IF Y=1 THEN Yz0:PRINT"NO PERIODS..." 
INPUT P$ 

FOR I=1 TO LEN(PS$) 


IF MIDS(P$,I,10z" " THEN 390 
IF MIDS(P$,I,120z"." THEN Y=1:GOTO 325 
NEXT:IF М<-1 THEN 455 ELSE GOTO 470 


REM WORD COUNT 

W=W+1 

IF М) =11 THEN 430 

GOTO 380 

IF LEN(P$)242200 THEN 470 
PRINT"YOU'VE ENTERED";W;"WORDS ";N$ 
PRINT"REENTER А SHORTER VERSION." 
GOTO 329 

PRINT"BE A LITTLE MORE SPECIFIC, WHAT" 
PRINT"ABOUT ";Ps,"?" 

GOTO 325 

REM DEFINE PARTS OF PROBLEM 
CLS:GOSUB 30:GOTO 580 

REM FIRST NAME BASIS 

FOR Izi TO LEN(NS$S?) 
F$zF$4MID$NS$S,I,1) 

IF MIDS(ON$,1,12«" " THEN RETURN 
NEXT 

RETURN 

REM TIME LOOP 

FOR ТІ-1Т701000:МЕХТ 

RETURN 

REM REPLACEMENT WORDS / WORD DATA 
FOR Ізі TO 46:READ X$(IO:NEXT:Lz1:z1 
REM WORD COUNT / WORD IN DATA LIST 
Iz1:KzLEN(CP$) 

IF MID$(P$,1I,10z" " THEN 650 
IzI41:IF I=K THEN 670 

GOTO 620 

A(Q)=L:L=I:Q=Q+1:REM WORD SEPARATION 
GOTO 630 

АС? гі. 

AC1)=#0:121:220:Q=1 

FOR L=A(I)+1 TO A(I+1)-1 
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700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 


940 


950 

960 

970 

980 

990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1180 
1190 
1200 
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AS$(Q)=A$(Q)4MIDS¢(P$,L,1) 

NEXT: 0-04 1 

IF IZ THEN 740 

I=I+1:GOTO 690 

REM LAST WORD IN SENTENCE 

FOR L=ACI)+1 TO LEN(P$) 
A$(Q)sA$(Q)4+MID$(P$,L,1) 

NEXT: Q=1 

AS (CZ)=A$(Z4+1):A$(Z41)=20" 

REM COMPARE EACH WORD IN SENTENCE 
REM WITH WORDS IN DATA LIST FOR MATCH 
Іші 

IF Х5(12-А65(0) THEN 1010 

I=I+1:IF 1)=30 AND 0>-3 THEN 890 


IF І2-47 THEN 860 

СОТО 820 

Q=Q+1 

IF Q>=Z+1 THEN 910 

GOTO 810 

PRINT@?75,"SORTING WORDS" 

GOTO 840 

REM WORD NOT IN FILE 

PRINT 

PRINT"I AM REALLY SORRY, BUT I 


AM UNABLE" 

PRINT'"TO DISCUSS THIS PARTICULAR 
PROBLEM" 

PRINT"WITH YOU. PERHAPS YOU WOULD" 
PRINT"LIKE TO TRY ANOTHER"; 

GOSUB 980:GOTO 990 

INPUT AS:PRINT:RETURN: REM STRING ENTRY 
IF A$z"Y" OR AS="YES" THEN 1180 
GOTO 4620 

REM WORD LOCATED / START OUTPUT 
W$zX$(CID 

M= I 

IF M>=1 AND M<=4 THEN 1190 

IF М>-<5 AND M<=8 THEN 1190 

IF M>=9 AND M<=16 THEN 2700 

IF M>=20 AND М<-28 THEN 3300 

IF М>-29 AND М<(-31 THEN 2000 

IF M>=32 AND М(-35 THEN 3600 

IF M>=36 AND M<X=42 THEN 4030 

IF M=43 OR M=45 THEN 2100 

IF М=44 OR M=46 THEN 2100 
RESTORE:GOTO 323 

IF M=2 OR M=4 OR M=6 OR М-7 THEN 2100 
PRINT" JUST HOW MANY ";W$5; 


1205 IF М=5 ОН M=8 THEN 5820 

1210 GOSUB 980: А=-УАІ (А5) : К5=Х5 (43) 

1220 АА-А:ІҒ АА? =3 PRINT"GOOD GRIcF f!" 
1225 IF Az1 THEN 1270 

1230 PRINT"ARE ANY ONE OF THESE YOUR “;Н%; 
1240 GOSUB ?80 

1250 IF ASz"YES" OR А5-"Ү" THEN V=1 

1260 IF V=1 THEN 1390 

1270 PRINT"SO YOU'RE JUST PLAYING THE FIELD." 
1280 PRINT"ARE YOU SEARCHING FOR А ",R$; 
1290 GOSUB 980 

1300 IF А5-"ҮЕ5" ОН A$z"Y" THEN 1750 

1310 PRINT"YOU PLAN ОМ STAYING SINGLE"; 
1320 GOSUB 980 

1330 IF A$="YES" OR A$="Y¥" THEN 1750 

1340 PRINT"YOU'RE NOT GOING TO STAY SINGLE," 
1350 PRINT"BUT AT THE SAME TIME YOU'RE" 
1360 PRINT"LOOKING FOR А ";R$,;" YOU" 

1370 PRINT"HAVE GOT TROUBLES !!" 

1380 GOTO 4600 

1390 PRINT"DO YOU FEEL YOU ARE CHEATING ON" 
1400 PRINT"YOUR ";R$;" AND YOURSELF"; 

1410 GOSUB ?80 

1420 IF A$zs"YES" OR A$="Y" THEN 1560 

1430 PRINT"YOU DON'T ",;F$7; 

1440 GOSUB 9?80:IF A$="YES" THEN 1560 

1450 PRINT"ONE OF THOSE HARD-NOSED HUMANS," 
1460 PRINT"HUH? I SUGGEST YOU NIP IT" 

1470 PRINT"AT THE BUD, EXPLAIN THINGS ТО" 
1480 PRINT"YOUR ";R$;" AND FORGET THE OTHER" 
1490 PRINT W$;" BEFORE YOU GET DEEPER THAN" 
1500 PRINT"YOU ARE NOW..."';F$ 

1505 PRINT 

1510 PRINT"DO YOU AGREE";:GOSUB 980 

1515 IF KLzi THEN KL=0:GOTO 4700 

1520 IF A$="NO" OR A$5s"N" THEN 1580 

1530 PRINT"I THOUGHT YOU'D SEE THINGS" 

1540 PRINT"MY WAY ";F$ 

1550 GOTO 4600 

1560 PRINT"YOU SHOULD FORGET THE OTHER" 
1570 GOTO 1490 

1580 PRINT"WHY DON'T YOU AGREE “;Ғ%; 

1590 GOSUB 980:GOSUB 5740 

1600 PRINT"BECAUSE ";AS$,;"?" 

1610 PRINT"HOW LONG HAS THIS BEEN" 

1620 PRINT"GOING ON ";F$ 

1630 PRINT"SELECT ONE:" 

1640 PRINT"1» DAYS" 
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1650 


ідА Гу 


"- w w 


1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1755 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1740 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
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PRINT"2> WEEKS" 

PEINT 32> MONIMS- 

PRINT"45 YEARS" 

GOSUB 980:A=VAL(A$) 

IF'"Asi THEN DA$="DAYS":GOTO 1740 
IF A=2 THEN DAS="WEEKS":GOTO 1740 
IF A=3 THEN DA$="MONTHS":GOTO 1740 
IF A=4 THEN DAS$z"YEARS":GOTO 1740 
PRINT: GOTO 1610 

IF JK-1 THEN JK=0: RETURN 

IF KJ=1 THEN KJz0:PRINT:GOTO 3640 
PRINT"DID THESE ";W$;" FIND OUT" 
PRINT"ABOUT ONE ANOTHER ";Е$; 
GOSUB 980 
IF ASz'YES'" 
GOTO 1850 
PRINT'THAT'S THE TROUBLE! JUST STICK" 
PRINT"TO ONE ";X$(4»;" FOR A WHILE." 
PRINT"THINGS WILL WORK QUT MUCH" 
PRINT"BETTER, YOU'LL SEE ";Ғ5;"." 
GOTO 4600 

PRINT"THEY DIDN'T? 50 THE TROUBLE" 
PRINT"MUST BE WITH YOU. WHY IS IT" 
PRINT"NECESSARY FOR YOU TO SEE";AAÀ 
PRINT WS;" AT ONCE? HAVE YOU TRIED" 
PRINT"JUST ONE";:GOSUB 980 

IF A$="YES" OR Аб= "У" THEN 1930 
PRINT"YOU HAVEN'T? TRY IT!" 

GOTO 1820 
PRINT"YQU HAVE 
PRINT"DIDN'T LIKE IT 
GOSUB 980 

PRINT"I MIGHT SUGGEST YOU KEEP TO" 
Z-RND(C62:IF 2-і THEN 1970 

PRINT"YOURSELF FOR AT LEAST";Z;"WEEKS." 
GOTO 1820 

PRINT"ARE YOU AWARE WHAT ",;,X$(30;7 
PRINT"WILL DO TO YOUR HEALTH";:GOSUB ?80 
IF AS$z"N" OR А%-"МО“ THEN 2060 

PRINT"YOU ARE? THEN YOU SHOULD TAKE" 
PRINT"STEPS TO STOP...NOW ",F$,"!l1I" 

GOTO 4600 

PRINT"THROAT CANCER, LUNG CANCER, А" 
PRINT"SHORTER LIFE EXPECTANCY. JUST" 
PRINT"TO NAME À FEW. TAKE A FEW" 

GOTO 2040 

IF M(=4 OR M=44 OR М= 43 THEN Н%-Х5%(4) 
:JJz1:GOTO 2120 


OR A&S="Y" THEN 1800 


? I ASSUME THAT YOU" 
"SETS 


2110 
2120 
2130 
2140 
2150 
2160 
2220 
2230 
2235 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 


2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2535 
2540 
2550 
2560 
2570 
2580 
2590 
2600 


R$zX$66) 
PRINT"WHAT IS THE SINGLE MOST WORD" 
PRINT"THAT WOULD BEST DESCRIBE YOUR" 


PRINT"TROUBLES WITH THIS "; R$; 
GOSUB 980 

ES=A$ 

PRINT"NOT ENOUGH ";ES$,;" ";FS; 


GOSUB 980 

IF A$<{>"YES" AND А$ <> "КІСНТ" THEN 2280 
PRINT"SO YOU ARE JUST NOT SATISFIED" 
PRINT"WITH THE WAY THINGS ARE GOING" 


PRINT"WITH YOUR ";E$; 

GOSUB 980 

PRINT"OH I SEE ";F$;". HAVE YOU" 
PRINT"DISCUSSED THIS WITH "'; 


IF JJ=1 PRINT"HER";:GQTO 2320 
PRINT'"HIM"; 

GOSUB 980 

IF A$-"N" OR A$="NO" THEN 2360 
PRINT"AND I ASSUME IT DIDN'T HELP." 
JKz1:GOSUBSS0: PRINT:GOSUB 1610:GOTO 
2430 

PRINT"TRY IT; THINGS JUST MIGHT" 
PRINT"VORK OUT FOR THE BEST. IF" 
PRINT"NOT, CONSULT WITH ME AGAIN" 
PRINT"AND I WILL GIVE YOU A" 
PRINT"DIFFERENT ANSWER TO YOUR" 
PRINT"TROUBLES, ";F$,"." 

KL=1:GOTO 1505 

PRINT"DURING THE PAST ";DAS;" HOW" 
PRINT"MANY TIMES HAVE YOU DISCUSSED" 
PRINT"THIS WITH "j; 

IF JJ=l PRINT"HER";:GOTO 2480 
РНІМТ"НІМ"; 

GOSUB 980 

A=VAL(AS5) 

PRINT"DID ANY OF THOSE";A;"TIMES HELP" 
PRINT"AT ALL ";F$; 

GOSUB ?80 

IF A$="Y" OR А5-"ҮЕ5" THEN 2580 

IF А<=4 THEN 2580 

PRINT"I WILL HAVE TO TELL YOU TO" 
PRINT"SEEK SOME OUTSIDE HELP ON" 
PRINT"THIS MATTER...";F$:KLz1 
X=RND(2):1F X=1 GOTO 4600 ELSE 1505 
PRINT"CONTINUE THEN TO DISCUSS THIS" 
PRINT"PROBLEM OF ";E$;" WITH "; 

IF JJ=1 PRINT"HER":GOTO 2620 
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2610 
2620 
2630 
2640 
2650 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 


2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2760 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
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РНІМТ"НІМ" 

PRINT"IF YOU'VE PROGRESSED THIS" 
PRINT"FAR, THINGS WILL SURELY GET" 
PRINT“ BETTER... .";FS$ 

GOTO 4600 

REM MONEY 

PRINT"DO YOU HAVE A STEADY "; 
PRINT X$(36);" ";Ғ6; 

GOSUB 980 


IF AS$="N" OR А$="МО" THEN 2880 

IF W$45»?X9$(13) THEN 2770 

GOTO 2820 

PRINT"BUT YOU ARE IN ";X$(13);: 

GOSUB 980 

IF A$z"N" OR A$="NO" THEN 2990 
PRINT"HAVE YOU CONSIDERED À ";X5(i4); 
GOSUB 980 

IF À$z"Y" OR AS="YES" THEN 3020 
PRINT"FINANCE CHARGES ARE HIGH, BUT" 
PRINT"ONE PAYMENT WOULD PROBABLY BE" 
PRINT"EASIER THAN SEVERAL TO DIFFERENT" 
PRINT"ONES ";F$;". YOU SHOULD" 
PRINT"CONSIDER À ";X$(i4);"." 

GOTO 4600 

PRINT"ARE YOU WORKING PART-TIME"; 

GOSUB 980 

IF A$z"N" OR AS="NO" THEN 3120 
PRINT"O.K. ";FS;"YOU HAVE GOT A";X$(36) 
PRINT"BUT, YOU ARE ONLY WORKING" 
PRINT"PART-TIME. ARE YOU DEEPLY IN "; 
PRINT X$(132;:GOSUB 980 

IF A$z"Y" OR А$="ҮЕбБ" THEN 3090 
PRINT"SO I WILL ASSUME THAT YOU JUST" 
PRINT"NEED SOME EXTRA CASH..." 

GOTO 2790 

PRINT"YOU HAVE A STEADY ";X§(36);" YOU" 
PRINT"ARE NOT IN ";X$(13);"..... " 

GOTO 2960 

PRINT"DID THE “;Х5(41);" TURN YOU DOWN"; 
GOSUB 980 

IF A$z"Y" OR AS="YES" THEN 3250 
PRINT"YOU NEED ";X$(1125;", YOU APPLIED" 
PRINT"FOR А “ң;Х5(14);", THEY DIDN'T" 
PRINT" TURN YOU DOWN. WHAT'S THE BEEF"; 
GOSUB 980:JJ=1:GOTO 3250 

PRINT"SO THAT'S IT !!" 

PRINT"SEEK A HIGHER PAYING JOB ";F¢;"." 
GOTO 4600 


3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3265 
3270 
3280 
3290 
3300 
3305 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 


PRINT"ARE YOU DISABLED ";F$,;:GOSUB 980 
IF A$z"N" OR А5-"М0“ THEN 3200 
РКІМТ"ТНАТ EXPLAINS THE ";X$(11); 
PRINT" TROUBLE." 

PRINT"I MIGHT SUGGEST YOU SEARCH FOR A" 
PRINT"NICE FINANCE ";X$(415;" THAT WILL" 
PRINT"UNDERSTAND YOUR PROBLEM. TODAYS" 
GOTO 2820 

PRINT"I WILL HAVE TO ASSUME FROM ALL" 
PRINT"OF YOU ANSWERS THAT YOU ARE JUST" 
PRINT"A LAZY PERSON ";F$,;" LOOKING" 
PRINT"FOR EASY CASH, GET А ";Х5(36); "11" 
GOTO 4600 

PRINT"VAIT A FEW MONTHS, IF POSSIBLE" 
PRINT"AND REAPPLY FOR THE ";X$(14) 

IF JJ=1 THEN JJ=0:GOTO 3290 

PRINT'THEY SHOULDN'T TURN YOU DOWN А" 
PRINT"SECOND TIME ";,FS;"." 

GOTO 4600 

IF M>=20 AND M¢=22 THEN 2790 

IF М=25 OR M=26 THEN JX=1:GOTO 4270 
PRINT"HAVE YOU DISCUSSED THIS WITH" 
PRINT"THE ";X$(255;" OR THE ";X$(26);, 
GOSUB 980 

IF A$="N" OR A$="NO" THEN 3520 
PRINT"DID THIS SOLVE ANYTHING ";F$; 
GOSUB 980 

IF A$z"N" OR А%-"МО" THEN 3400 

PRINT"IS THIS А DUPLEX"'";:GOSUHBH 980 

IF AS="N" OR A$="NO" THEN 3540 
PRINT"HAVE YOU TALKED TO OTHER TENANTS" 
PRINT"ABOUT YOUR SITUATION";:GOSUB 980 
IF Абс"М" OR AS="NO" THEN 3560 
PRINT"AND THIS, EVIDENTLY, DIDN'T НЕГР." 
PRINT" IF YOU HAVE IN FACT TALKED TO" 
PRINT'"THE ";X$(26);" ABOUT THIS" 

PRINT“ AND NOTHING WAS SOLVED, I WOULD" 
PRINT"SUGGEST MAKING UP A SCHEME TO" 
PRINT" BREAK THE ";X$(27);" OR LEASE." 
PRINT"SEEK A DIFFERENT LOCATION WITH" 


PRINT" OTHER ";Х$(24);" ";F$,;"." 

GOTO 4600 | 

PRINT"DO SO NOW, THEN ANSWER THE NEXT" 
PRINT"SET OF QUESTIONS, ";F$:GOTO 3350 


PRINT“YOU LIVE ІМ А SINGLE ";X$(23) 
GOTO 3440 

PRINT"DO SO NOW, THEY MIGHT BE GOING" 
PRINT"THROUGH THE SAME THING. IF THIS" 
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3580 
3590 
3600 
3610 

3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4015 
4020 
4030 
4040 
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PRINT"FAILS, 


сото 3470 


";P$;" I WOULD" 


PRINT"WHY DO YOU FEEL ";W8;" ",F5; 
GOSUB ?980 
PRINT"I FELT THAT WAY ONCE, UNTIL I" 


PRINT"RECEIVED A NEW RAM." 
PRINT"DO YOU HAVE FRIENDS 
GOSUB 980 

IF A$z"N" OR A$="NO" THEN 3830 
PRINT"DISCUSSING DIFFERENT THINGS WITH" 
PRINT"THEM SHOULD MAKE YOU FEEL SOME-" 
PRINT"WHAT BETTER. HOW OFTEN HAVE YOU" 
PRINT"FELT THIS VAY “;F$:JKe21 

GOSUB 1630 

IF A=4 THEN 3800 

PRINT"SO IT HASN'T BEEN GOING ON TOO" 
PRINT"LONG ";F$;", WHAT IS THE ONE" 
PRINT" THING THAT WOULD CHEER YOU MOST" 
PRINT"AT THIS MOMENT";:GOSUB 980 
PRINT'"THEN DO THIS NOW ";F$;". IF" 
PRINT"ALL FAILS YOU CAN RETURN TO ME." 
KL=1:GOTO 1505 

PRINT"THAT IS A LONG TIME TO BE IN THIS" 
PRINT"STATE OF MIND ";F$;". WHAT IS THE" 
GOTO 3750 

PRINT"DO YOU LIVE WHERE YOU COULD MEET" 
PRIMT"SOME NEW FRIENDS ";F$;:GOSUB 980 
IF A$2"N" OR A$="NO" THEN 3920 
PRINT"WHY DON'T YOU GET OUT AND MEET" 
PRINT"SOME NOV? IS SOMETHING ELSE" 
PRINT"HOLDING YOU BACK";:GOSUB 980 
PRINT"OH, I SEE ";F5:GOTO 3920 

IF S$="MALE" THEN R$=X$(43):GOTO 1280 
R$=X$(45):JJ=1:GOTO 1280 

PRINT"HOW ABOUT MOVING TO A" 
PRINT"DIFFERENT LOCATION ";F$;:GOSUB 980 
IF A$s"N" OR A$="NO" THEN 3980 

PRINT"I BELIEVE THINGS WILL WORK OUT" 
PRINT"FOR THE BEST VITH THIS MOVE." 
GOTO 4600 

PRINT"ARE YOU TRYING TO BE CONTRARY 
GOSUB 980 

PRINT"LET'S TRY A DIFFERENT APPROACH TO" 
PRINT"THIS SUBJECT ";F$:GOSUB 550 


"ES; 


IF M=43 OR М=45 THEN PRINT:GOTO 3640 


KJ=1:GOTO 3900 
IF M=37 OR M=38 THEN 4270 


PRINT"WHAT'S THE TROUBLE WITH YOUR ";W$; 


“Fg, 


4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4335 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4455 
4460 
4470 
4480 
4490 
4500 


GOSUB 9?80:GOTO 4540 
IF W$zX$(36)0 THEN 4080 
IF М=41 OR M42 THEN 4120 


PRINT"HAVE YOU ASKED FOR A RAISE IN PAY"; 


GOSUB 980 

IF A$z"N" OR A$z"NO" THEN 4520 
PRINT"I ASSUME YOU WERE TURNED DOWN. '' 
PRINT"DO YOU BELONG TO А UNION ";F$; 
GOSUB 980 

IF Aĝa "N" OR A$z"NO" THEN 4340 
PRINT"DO OTHERS FEEL THE VÀY YOU DO"; 
GOSUB 980 


IF A$z"N" OR A$z"NO" THEN 4440 
PRINT"HAVE ALL OF YOU MET TO DISCUSS" 
РНІМТ"А POSSIBLE STRIKE ";F$; 

GOSUB 980 

IF A$="N" OR A$2"NO" THEN 4440 
PRINT"AGAIN, I ASSUME THINGS DIDN'T" 
PRINT"TURN OUT WELL ";F$;". I WOULD" 


PRINT"SUGGEST THAT YOU TRY AND LOCATE" 
PRINT"ANOTHER ";X$(36)0;" ";F$;"." 

GOTO 4600 

PRINT"WHAT EXACTLY IS THE PROBLEM" 
PRINT"WITH YOUR ";W$;" ";F$;:GOSUB 980 
PRINT"HAVE YOU BROUGHT THIS TO HIS OR" 
PRINT"HER ATTENTION, ";F$;:GOSUB 980 
IF A$="N" OR A$z"NO" THEN 4455 
PRINT"YOU HAVE AND YOU FEEL YOU AREN'T" 
PRINT"BEING TREATED FAIRLY";:GOSUB 980 
IF ЈХ=1 THEN 3400 

PRINT"HOW LONG HAVE YOU BEEN EMPLOYED" 


РНІМТ"МІТН THIS ";X$(410;" ";F$; 
JK=1:GOSUB 1630 

IF А=4 THEN 4390 

GOTO 3100 

PRINT"YOU'VE BEEN WITH THIS ";X$(41) 


PRINT"FOR QUITE AWHILE. IF POSSIBLE" 
PRINT" YOU SHOULD STICK WITH IT FOR AS" 


PRINT"LONG AS YOU CAN "GF$ 

GOTO 4600 

PRINT"YOU ARE ALONE ON THIS MATTER." 
GOTO 3100 


IF JX=1 THEN 3400 

PRINT"SIT DOWN WITH YOUR ";X$(37)," 
PRINT"DISCUSS THIS MATTER FULLY WITH" 
PRINT"HIM OR HER.IF THEY DO NOT UNDER-" 
PRINT"STAND YOUR PROBLEM ";F$,;" I" 
PRINT"WOULD SEEK ANOTHER JOB." 
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4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4595 
4600 
4610 
4620 
4630 
4640 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
5200 
5210 
5220 
52230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5740 
57850 
9770 
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PRINT:GOTO 4120 


DPERINTUTRY ҮТ, "USES UIITITICOTO 4120 
PRINT"I ";:GOTO 4240 
FOR U-1 TO LEN(A$) 


IF MID$(AS$,U,42zX9(37) THEN 4580 

IF MID$¢(A$,U,6)=X$¢(38) THEN 4590 

NEXT: GOTO 4060 

W$zMID$(AS,U,42:GOTO 4595 
WS=MIDS (AS ,U,6) 

GOTO 4270 

GOSUB 550: PRINT 

GOTO 960 

PRINT 

PRINT"END OF PROGRAM..." 

END 

IF Аб«"М" OR А%-"МО" THEN 3980 
PRINT"YOU DO AGREE,I FIGURED YOU WOULD" 
PRINT F5;". DO YOU ALWAYS TEND TO 
PRINT"AGREE WITH COMPUTERS"; 

GOSUB 980 

IF Аб-"М"“" OR A$z"NO" THEN 3980 

PRINT"SO THEN YOU AGREE WITH COMPUTERS" 
PRINT"ALMOST CONSTANTLY ";FS$,".' 
PRINT"WOULD YOU AGREE IF I SAID THAT" 
PRINT"IF YOU PRESS ANOTHER" 

PRINT"KEY, I COULD KILL THIS WHOLE" 
PRINT"PROGRAM, ";F$,;:GOS8UB 980 

IF A$-"N" OR A$z"NO" THEN CLS:GOTO 4850 
PRINT"GOOD THING YOU SAID ";A$,;,"..." 
GOTO 4600 

FOR TT=1 TO 10000:NEXT 


PRINT"WE'RE YOU SCARED..... "HE. Y 
GOTO 4600 
REM WORDS / DATA BANK 


DATA GIRLS,GIRL,WOMEN,WOMAN,MEN, MAN 
DATA BOY,BOYS,BILLS,BILL,MONEY 

DATA FINANCIAL,DEBT,LOAN, TAX ,TAXES 
DATA САК, САК, AUTO, HOUSE , HOUSES 
DATA HOME,APARTMENT, APARTMENTS 

DATA LANDLORD, OWNER, CONTRACT, RENT 
DATA CIGARETTES, SMOKING, CIGARETTE 
DATA LONELY, ALONE, DEPRESSED, AFFRAID 
DATA JOB, BOSS, FOREMAN, SALARY, INCOME 
DATA COMPANY, INDUSTRY, WIFE 

DATA GIRLFRIEND, HUSBAND, BOYFRIEND 
REM SHORTEN STRING 

US=A$:A$="" 

FOR I=1 TO LEN(US) 


9780 IF MID$(US,I,2)="I " THEN 5800 
5790 AS$ZAS«MID$(US,I,12:NEXT: RETURN 
5800 AS=A$+"YOU" :I=I+1 

3810 GOTO 5780 

5820 GOSUB 980: AsVAL(AS$) 

5830 REM REDO STRING CONTENTS 

5840 R$zX$(45) 

5850 GOTO 1220 


Variables and Strings 


N$ - First/last name of user 

5$ - To differ between male and female 

A$ - Used throughout the program for string entrys (input) 

P$ - Entry of troubles 

W - Word count, number of words in sentence (P$) 

Y - Beginning of program, for use of periods in sentence 

F$ - First name of user 

TI - Time loop (pause) during program run 

X$(N) - Data list of Words that computer can react to from the data 
statements. 

I - Used as a counter 

Q - Used in conjunction with A$(N) for the separation of words in a 
sentence 

L - Number of letters in each word (LEN amount) 

A(N) - Total number of letters per word 

Z - Total count of words 

W$ - Singled-out word from the beginning sentence that matches a 
word from the data list 

M - Location of a particular word from the data list 

A - VALue of A$ 

R$ - Singled-out word from the data list 

KL - 0/1 variable for messages, comparison 

DAŞ - Length of troubles, i.e., days, weeks, months, or years 

JK KJ - 0/1 variable (true/false comparison) 

Z - A random amount for print statements 

JJ - Also for print statements 

E$ - Contents of A$ (selected areas) 

X - For random print statements 

JX - 0/1 variable 

U - Used in the for-next loop (A$) that examines the singled-out 
word 

TT - Secondary time loop (pause) for end 
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U$ - Contents compared, for changing "I" to "YOU" for print 
messages 


Explanation of the Program Lines 


Lines 10-145 clear memory for string storage and display brief 
instructions. 

Lines 150-160 request the input of the user's first and last 
name. 

Lines 170-210 begin the actual program if A$ equals "Y" 

Line 320 contains the dimension statements. 

Lines 325-465 are used for the input of P$ (troubles sentence), 
the determination of the number of words in that sentence, and the 
display of messages if there are too many words (line 440) or toofew 
(line 445). 

Lines 490-540 separate № to set F$ equal to the first name ої 
the user. 

Lines 550-570 is the time loop (pause). 

Lines 580-590 read the data list and place the words in the X$ 
array. 

Lines 600-780 separate each word in the sentence entered by 
the user so that the individual words can be compared with the 
words in the data list. 

Lines 790-970 compares each word in the sentence with those 
in the data list, X$(N). If no match is located, the program will 
branch to the print statements in lines 930-960. 

Line 980 is a routine for the entry of A$ used by GOSUB 
statements throughout the program. 

Line 990 enables the user to enter another trouble sentence. 

Line 1000 terminates the program if A$ is equal to "NO." 

Lines 1010-1120 direct the program flow to the appropriate 
line depending on which word in the data list matches a word in the 
sentence entered by the user. 

Line 1190 causes a branch to a different set of print statements 
if any of the conditions are met. 

Line 1200 is the beginning of all the print statements, ques- 
tions, and possible solutions. 

Lines 1205-4530 are all the print statements, inputs, and solu- 
tions, depending on the word(s) selected (as they are matched with 
computer's data list) 

Lines 4540-4595 alter words such as him, her, husband, and 
wife according to the contents of W$ 


90 


Lines 4600-4640 terminate the program if A$ is not equal to 
"Y pp “YES”. 

Lines 4700-4870 are extra print statements for use when the 
user becomes contrary or tries to confuse computer. 

Lines 5200-5310 contain the data elements, which are the 
words that are compared to the individual words in the user's 
trouble sentence. 

Lines 5740-5810 redo parts of sentence for the output of YOU 
as opposed to I. 

Lines 5830-5850 changes the contents of R$ to match print 
output. 
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GENERAL STORE 


So you think this is just a simple program to test your addition? 
Guess again! Sure, you'll have to be good at arithmetic and you'll 
have to add quickly! The computer will give you products (two at 
the first) and their prices. Then you'll have to enter the totals of the 
prices. All of this will happen in limited amount of time so, if you 
can't think fast...don't try this program! Note that the IBM version 
of this program is included in Appendix A, and the Apple version in 
Appendix B. 


sample Run 


GENERAL STORE 

YOUR INSTRUCTIONS ARE SIMPLE AND 
STRAIGHT-FORWARD: | WILL GIVE 

YOU A LIST OF DIFFERENT ITEMS 

AND THEIR PRICES. YOU IN TURN 

WILL ENTER THE TOTAL OF THE 

ITEMS. THAT IS, IF | SAY $2.50 

MILK , THEN | SAY $0.80 BREAD, 

YOU MUST THEN ENTER THE TOTAL 
OF $2.50 + $0.80 ($3.30). ALL 

YOUR ENTRIES WILL BE THROUGH 
ІМКЕҮ%, DON'T PRESS ENTER AND DON'T ENTER THE 
DOLLAR SIGN. 

PRESS A KEY... 

ENTER ONLY THE NUMBERS AND THE 
DECIMALS. AFTER 10 ITEMS WE WILL 
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INSTRUCTIONS 


P NUMBER 
OF PLAYERS 


Y 


DIM 
Р«<:3 
OR 
Р > 10 
N 
INPUT D 
FIRST NAMES 


SELECT RND 
PLAYER 


MESSAGE PRINT PLAYER 
TOTAL POINTS READ DATA 


Y STOP 


ENTRY BY TY(NE) = 
INKEYS VALIXS) 


TIME , 
EXPIRED 


Flowchart for General Store. 


TAKE A SHORT BREAK: THEN | WILL 
GIVE YOU 10 MORE. WE WILL QUIT 
ONLY AFTER 30 ITEMS HAVE BEEN 
COMPLETED. YOUR SCORE WILL BE 
DETERMINED BY YOUR TOTAL. IF 
CORRECT, THE TOTAL IS YOUR SCORE. 
IF INCORRECT, YOUR TOTAL WILL BE 
A MINUS OF ALL ENTRIES MISSED. 

I SHOULD ALSO TELL YOU, THAT 

YOU WILL HAVE A TIME LIMIT IN 
WHICH TO ENTER THE TOTAL, SO LAY 
DOWN THE PENCIL AND CALCULATOR. 


N SORT POINTS 
HIGH/LOW 
MESSAGE - 
TOTALS 
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PRESS ANOTHER KEY... 
HOW MANY PLAYERS?2 


ENTER 2 PLAYERS FIRST NAMES 
MAX 

MAY 

| WILL SELECT EACH PLAYER IN 
A RANDOM FASHION, THERE WILL 
BE NO SET ORDER OF PLAYERS. 


MAX YOU WILL NOW PLAY. 
PRESS THE ENTER KEY... 


Program Listing 


10 REM PROGRAM TITLE: GENERAL STORE 

20 CLS:CLEAR $00: PRINT TAB(10); 

30 PRINT"GENERAL STORE": RS="NEXT" 

40 RANDOM:DIM N$(152,1$(31)2,1(31) 

90 DIM L(312,PR(3120, TPC 150) : REM INSTRUCTIONS 

60 PRINT"YOUR INSTRUCTIONS ARE SIMPLE AND" 

70 PRINT"STRAIGHT-FORWARD: I WILL GIVE" 

80 PRINT"YOU A LIST OF DIFFERENT ITEMS" 

90 PRINT"AND THEIR PRICES. YOU IN TURN" 
100 PRINT"WILL ENTER THE TOTAL COST OF THE" 
110 PRINT"ITEMS. THAT IS, IF I SAY $2.50" 
120 PRINT"MILK, THEN I SAY $0.80 BREAD" 

130 PRINT"YOU MUST THEN ENTER THE TOTAL" 
140 PRINT"OF $2.50 + $0.80 ($3.30). ALL" 
190 PRINT"YOUR ENTRIES WILL BE THROUGH" 

160 РКІМТ"ІМКЕҮ$. DON'T PRESS ENTER AND" 
170 PRINT"DON'T ENTER THE DOLLAR SIGN" 

180 PRINT:PRINT"PRESS A KEY..." 

190 GOSUB 3000: CLS:G$="88 ,#88" 

200 PRINT" ENTER ONLY THE NUMBERS AND THE" 
210 PRINT"DECIMALS. AFTER 10 ITEMS WE WILL" 
220 РНІМТ"ТАКЕ À SHORT BREAK. THEN I WILL" 
230 PRINT"GIVE YOU 10 MORE. WE WILL QUIT" 
240 PRINT"ONLY AFTER 30 ITEMS HAVE BEEN" 
290 PRINT"COMPLETED. YOUR SCORE VILL BE" 
260 PRINT"DETERMINED BY YOUR TOTAL, IF" 

270 PRINT"CORRECT THE TOTAL IS YOUR SCORE." 
280 PRINT"IF INCORRECT, YOUR TOTAL WILL BE" 
290 PRINT"A MINUS OF ALL ENTRIES MISSED." 
300 PRINT"I SHOULD ALSO TELL YOU THAT" 

310 PRINT"YOU WILL HAVE A TIME LIMIT IN" 
320 PRINT"WHICH TO ENTER THE TOTAL, SO LAY" 
330 PRINT"DOWN THE PENCIL AND CALCULATOR." 
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340 REM BEGIN 

390 PRINT"PRESS ANOTHER KEY..." 

360 GOSUB 3000:CLS 

370 INPUT"HOW MANY PLAYERS (1-10)"';P 

380 IF Р<1 OR Р210 THEN 370 

390 PRINT"ENTER";P;"PLAYER'S FIRST NAMES" 
400 REM NAMES 

410 АР-15538:ҒОН Ісі TO P 

420 INPUT N$ID?:N(IOsI:NEXT:Nz1:AAz176 
425 AQzAP«*64:IF P=1 THEN Y=1:N=2:GOTO 470 
430 PRINT"I WILL SELECT EACH PLAYER ІМ" 
440 РНІМТ"А RANDOM FASHION. THERE WILL" 
450 PRINT"BE NO SET ORDER OF PLAYERS." 
460 GOSUB 2800:PRINT:REM PLAYER 

470 IF EE=1 THEN 1530:REM FINAL 

480 Q$zN$(YO:TAz0:JIzQ 

490 PRINT Q$;" YOU WILL NOW PLAY." 

500 PRINT"PRESS THE ENTER KEY..."; 

910 INPUT X$:PRINT 

920 PRINT"HOW FAST IS YOUR ADDITION "; 
930 PRINT (05;" ???" 

40 REM READ ALL ITEMS / PRICES 

950 FOR I=1 TO 30:READ IS(IO:L(IOZI:NEXT 
960 FOR I=1 TO 30:READ PR(IO:NEXT:GOTO 2500 
570 DsI-1:DD-(D/32:Uz1:D$z"$88.48":F$z'$" 
980 REM SELECT ITEMS RANDOMLY 

990 IF U»DD THEN PRINT:PRINT:GOTO 1100 
600 X=RND( 30) 

610 IF L¢(X)=0 THEN 600:REM USED 

620 TzX:PRzPR(TO:T$z15$(T) 

629 IF У-і THEN YU=PR 

630 TA=TA+PR:REM TOTAL AMOUNT/CURRENT ITEM 
640 TA$S$S=STR$S (ТА) :REM TOTAL TO STRING 

645 IF U=1 THEN GOSUB 2900 

690 IF Uzi THEN CLS ELSE IF U)1 THEN 670 
660 PRINT TAB(O0D?"PRICE" TAB(25)0"ITEMS"; 
665 PRINT TAB(50)D"'TOTALS" 

670 PRINT ТАВ(0) USING D$;PR; 

680 PRINT TAB(25) T$ 

690 IF М<-1 THEN 710 

700 RRz1:REM CONTINUE PRINT / ENTRIES 

710 L¢X)=0:U=U41:KK=0:NE=1 

720 IF КЕ<21 THEN 580 

729 PRINTGAA,F$ 

730 X$zINKEYS: IF KK(-5 AND X$(>"" THEN 1040 
735 IF X$="," THEN 880 

740 IF X$="" THEN 760 

790 GOTO 800 
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760 
770 
780 
800 
810 
820 
830 
840 
850 
860 
880 
8?0 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1005 
1008 
1010 
1020 
1050 
1040 
1050 
1060 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
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KK=KK+1:REM TIME EXPIRED ? 


IF КК>-<175 THEN W$z"":GOTO 1000 
POKE AP,i43:GOTO 730 
REM ENTRY 


POKE AP,ASC((X$)0:TY(NED-VAL(X$) 
AP=AP+1:REM POKE LOCATION 
NE=NE+1:REM NUMBER ENTRY 

IF NE=LEN(TA$) THEN 860 

GOTO 730 

GOTO 910:ВЕМ ALL ENTRIES IN 

REM DECIMAL 

POKE AP,ASC(X$) 

TY(NE)=1000:GOTO 820 

REM COMPILE ENTRIES 

VzNE-1:IF Vas? THEN V=10 

FOR I=1 TO V 

IF ТҮ(1)=1000 THEN 970 
W$=W$+STR$š(TY(I)) 
TY(1)=0:NEXT:GOTO 990 

W$=W$+" . " 

GOTO 960 

W=VAL(W$):W%$=STR5 (W) I 

IF V$4O TAS THEN PI=PI+PR:JI=JI+1i 
IF U-3 AND ЈІ‹›0 THEN PI=PI+YU:JI=JI+1 
IF PEEK(AP)=143 THEN РОКЕ AP,32 
POKE AP+1,32:W$="":AA=AA+64 
AP=AQ: AQ=AQ+64 

GOTO 590:REM ANOTHER ITEM 

REM SLOW DOWN A LITTLE 

POKE АР, 32 

GOTO 730 

REM POINTS / PLAYER ADVANCE 

IF РІ(20 THEN 1200 

FOR 1=1 TO LEN(TA$) 

IF MIDS(TA$,I,1)="." THEN 1150 
K$=K$+MID$(TA$,1,1) 

NEXT 

K=VAL(K$) 

GOSUB 1430 

TP (CY) =TPC(Y) 4K 

GOTO 1320 

REM MISSED ITEM(S) 
TAS$=STRS$(PI):FOR І-і TO LEN(TA$) 
IF MID$(TA$,1I,1)="." THEN 1240 
K$=KS+MID$(TA$,I1,1) 

NEXT: K=VAL(K$):GOSUB 1430 

TPCY) =TP(Y)-K 

PRINT" YOU HAVE MISSED TOTALS ON";JI 
PRINT" ITEMS ";06;". THESE ITEMS САМЕ" 


1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1535 
1540 
1550 
1560 
1570 
1580 
1590 
1595 
1600 
1610 
1650 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 


PRINT"TO А TOTAL OF $";TA5;". YOU ARE" 
PRINT"MINUS THAT NUMBER, YOUR SCORE" 
PRINT"IS NOW: ";USING G$;TPCY) 

GOTO 1350 

PRINT"YOU HAVE SUCCESSFULLY ENTERED" 
PRINT"ALL TOTALS ";Q$;", YOUR SCORE 
PRINT"IS NOV: ";USING GS$S;TP(Y) 
Kz0:JIzQ0:PIzQ:TASz"":K$z"'" 
U=1:D1=D1+10:IF 01=20 THEN R$="LAST" 
АР=15538: Аа=АР+64: АА=176 : RRZO: PRINT 

IF D1>=30 THEN 1500 

PRINT"TAKE A SHORT BREAK, THEN WE'LL" 
PRINT"ATTEMPT THE ";R$," SET OF ITEMS." 


FOR Ісі TO $000:NEXT: PRINT 

GOTO 580 

REM AMOUNT TIMES 10 

IF MID$S(TA$,LEN(TA$)-1,1)="." THEN 1480 
IF ГЕМСТА%)-«2 OR LEN(TA$)=3 THEN 1470 


RETURN 

KzK*100:GOTO 1460 

KzK*10 

GOTO 1460 

REM ANOTHER PLAYER 

PRINT: PRINT: RESTORE 
Di1z0:R$z"NEXT":GOTO 460 

REM HIGH POINT 

IF P=1 THEN TP-TP(C125:GOTO 1720 
MM=0:VV=1:N=N-1 

IF TPC(VV>)=TPC(VV+1) THEN 1590 
TP=TP(VV) : TP(CVVOzTP(CVV«1) 
TP(VV+id=TP:N5=N5 (VV) 

М (VV)=N$ (VV+1) :N$ (VV41)=N5 : MM= 1 
IF VV+1>=N THEN 1600:REM FINAL 
VV=VV+1:GOTO 1550 

REM HM=1 -- NOT IN ORDER 

IF ММ-і THEN 1540 

REM POINTS COMPILED (FINAL?) 

REM PRINT RESULTS 

PRINT'"ALL HAVE PLAYED...." 
PRINT"PRESS A KEY FOR RESULTS ON SCORE" 
GOSUB 3000 

CLS:Isi 

REM SINGLE PLAYER 

IF Р=1 THEN 1850 

РНІМТ"ТНЕ TOP WINNER: ";М№ (1) 
РНІМТ"МІТН A FINAL POINT SCORE OF: "; 
PRINT USING С$;ТР‹(І) 

PRINT"OTHER PLAYERS AND SCORES:" 
FOR X=I+1 TO P 
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1820 
i830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
2500 
2510 
2520 
2530 
2540 
2580 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2800 
2810 
2820 
2830 
2840 
2850 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
3000 
3010 
3020 
3030 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
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PRINT Nš X); '' 
NEAT 

GOTO 1880 
PRINT Q@$;" YOUR TOTAL (FINAL) 
PRINT"FOR GENERAL STORE IS: "; 
PRINT USING G$,TP 


HAD: ";USING G$;TP(X) 


SCORE" 


PRINT 

PRINT"END OF PROGRAM RUN." 
END 

REM INFLATION / DEFLATION 


FOR I=1 TO 30 
DE-RND(102:DFZzCSNG(DE/10) 
DG=RND( 2) 

IF DG=2 THEN 2590 

REM INFLATION 

PR(I)=PR(I))+DF 

NEXT 

GOTO 570 

REM DEFLATIQN 

PR(I)=PR(I)-DF 

IF РК‹І) <=0 THEN 2560 

СОТО 2570 

НЕМ RANDOM PLAYER 

IF МОР THEN EE=1: RETURN 

Q=RND(P) 

IF N(Q)=0 THEN 2820 

¥Y¥=Q:N(Q)=0 

N=N+1 : RETURN 

REM EXTRA MESSAGE 

PRINT 

PRINT"ADD ALL ITEMS TOGETHER" 
PRINT"BEFORE INPUTTING AMOUNT." 
IF Di>=10 THEN 2970 i 
FOR TL=1 TO 2800:МЕХТ 
CLS:RETURN 

PRINT"START WITH PREVIOUS TOTAL." 
GOTO 2950 

REM INKEYS 

XS=INKEY$ 
IF X$="" 
RETURN 
REM DATA / PRICE - ITEM COMBINED 
DATA MILK,BREAD,MEAT 

DATA MEAT,MEAT,FISH 

DATA CANDY,CANDY, CANDY 

DATA VEGETABLES, VEGETABLES 

DATA POULTRY, POULTRY 

DATA LETTUCE,ONIONS 


THEN 3010 


4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 


БАТА 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


SPINACH,CIGARETTES 
CIGARS,BACON 

TABLETS (PAPER),PENS 
BATTERIES,BATTERIES 
FURNITURE POLISH 
CARPET CLEANER 

HAND SOAP,HAND SOAP 
CRACKERS ,MEATS 

SODAS (CASE) 


REM PRICES OF ITEMS 


DATA 
DATA 
DATA 
DATA 
DATA 


2.30,0.89,1 
0.35,2.05,0. 

1.97,0.57,1.01,0.7%9:;7. 
4.66,1.23,2.44,2.66,0. 
2.41,0.99,0.99,1.32,8. 


,98,3.35,5. 
54,0.39,0. 


Variables and Strings 


G$ - Used for the printing of scores 
P - Number of players (1-10) 

AP - Poke location for printing 
N$(N) - First names of players 

N - Number of players, counter 

AA - Print @ locations 

AQ - Same as AP, but for advancing to a new area 
Q$ - Selected player 
TA - Total amount, up to and including current item 
Л - Counter for incorrect price entry 
I$(N) - АП items 

PR(N) - Price of above items 

D - Amount of I after data is read 

DD - Total items 

U - Counter for items 

D$ - For print of prices 

X - Random selection of an item 

L(X) - Delete the item X , after selection 
T - Same as variable X (random) 

PR - Set to the price of the current item , PR(T) 
T$ - Same as the I$(T) item, used in conjunction with JI 
YU - Price of the first item in each set 
TA$ - STR$ of amount ТА 

KK - Used for timing responses 

NE - Used for TY (subscripted) for each numeral entry 
TY(N) - Explained in the line above 

W$ - STR$ content of the TY(I) cost entry 


50,3 


‚65 
43,3. 
05,5. 
98,1. 
99,4. 


44 
74 
97 
32 
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PI - For incorrect price entry 

K$ - Total cost of 10 items 

K - VALue of K$, above 

TP(Y) - Total score for current player 

VV - Used for sorting high to low score list (if more than one has 
played) 

MM - 0/1, true/false variable. If MM= 1, the list of players ar- 
ranged according to their scores is not correct in order. Likewise if 
MM = 0 the list is correct 

DE - Selects a random amount from 1-10 for inflation or deflation of 
current prices 

DF - Insures that the amount above will be a "cent" increase of 
decrease 

DG - Determines whether the current price in the list will be 
inflated or deflated 

Q - Randomly selected player 


Explanation of the Program Lines 


Lines 40-50 dimension the strings and variables. 

Lines 60-350 display the instructions for play. 

Line 360 contains a GOSUB to line 3000, which contains an 
INKEYS routine that line 360 uses to exit the instructions. This 
routine 1s used throughout the program 

Lines 370-420 let the user enter the number of players and 
their first names. 

Lines 410,420, and 425 also initialize some variables for print? 
(AP) and poke (AP and AQ) locations. 

Lines 430-460 print a message, and then select one player 
randomly using a GOSUB to lines 2800-2850. If only one person is 
playing, P —1, and line 425 causes the random selection of a player to 
be skipped. 

Line 470 if EE —1 , all players have had their turn. The program 
will branch to the final messages beginning at hine 1530. 

Line 480 sets the contents of Q$ to the name of the player 
selected, N$(Y). The variables TA and JI are set or reset to 0 for 
totaling and scoring purposes. 

Lines 490-530 are print messages for the current player. 

Lines 540-560 read all data items and prices. The subscripted 
variable L(I) is used to delete a particular item after it has been 
used. After all items I$(D and prices PR(D are read, the program 
will branch to lines 2500-2620. These lines are used for inflation or 
deflation of the 30 prices. This will insure that the user cannot 
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memorize any price because each will change with each player or 
each program run. Line 2520 randomly selects a number from 1-10 
(DE). This number is then divided by 10 and set to a cent amount, 
DF = C(SNG(DE/10). The CSNG simply insures, that DF is a 
single-precision number. Line 2530, where DG = RND(2), will de- 
termine whether this amount is to be used to increase or decrease 
the current price. If DG is equal to 2, the current amount will be 
decreased by DF (lines 2590-2620). If the amount of PR(D is less 
than or equal to 0 (zero), the program will branch back and use DF to 
increase PR(D) in line 2560. The current price will always be a 
positive amount, even if it's only one penny. 

Line 570 sets more variables and strings: DD for the total 
number of items (D) divided by 3; (the program presents 3 sets of 10 
items) U, a counter for the items; and D$ and F$ for print statements 
of prices. 

Lines 580-610 select one item at random if U is not greater than 
DD (line 590) and the item has not been omitted (line 610). 

Lines 620-640 select an item and the total price of the item 
selected. “ 

Lines 645-650 are used primarily for print statements if U is 
equal to one (line 660 and 665). 

Line 670-680 print the price and the item selected. 

Lines 690-700 insure that two items are selected if U< —1, so 
that the user will have a total to enter. 

Line 710 deletes the selected item, increases the item counter, 
U, sets the timer counter, KK, and sets variable NE to 1 for the 
contents of key entries. 

Line 720 branches back to line 580 if RR is not equal to 1, as 
explained in lines 690 and 700 above. 

Line 725 prints the dollar sign at АА, so the user will know the 
timing has begun. 

Lines 730-770 compose the INKEY$ routine for user entries. 
The variable KK is increased by 1 if no key closure is detected. The 
argument at line 730, if KK< = 5 and X$< >“”, will insure that the 
beginning of a new entry is cleared (lines 1040-1060) in case a key is 
closed when KK» —175. This way, the amount will not be carried 
over to the next item. If the decimal key is pressed (line 735), the 
program will branch tó line 880; that ASCII value will be poked onto 
the video, and that part of the price entered will be equal to 1000, 
TY(NE). If a numeral key is pressed, the program will branch to line 
800. That numeral will be poked at AP and TY(NE) will be equal to 
the value amount of X$. With this function and the above the poke 
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location is increased by 1 and the variable NE is also increased by 1. 
Line 840 tests the value of NE. If it is equal to LEN(T AS), the 
required number of keys have been pressed, and the program 
branches to line 910. 

Line 780 pokes CHR$(143), a graphic block, at the current 
location of the price entry. If no numeral or decimal is pressed, lines 
910-980 will compile all the keys closed, and place them in a string 
(W$) along with the decimal (line 940), if ТҮП) 1000. 

Line 990 sets W to the VALue of W$. W$ is then changed to the 
STR$ amount of W. 

Line 1000 increases the variable PI to PR (the price of the 
item) if W$ 15 not equal to ТА$. JI will then be increased by 1. 

Line 1005 is used to include the price of the first item in the 
current set (YU), if the total entered to that point is incorrect and 
U= 3 and JI< > 0. 

Line 1008 clears the cursor block (143) from the current line 
before advancing to the next item. 

Line 1010 clears the contents of W$ (for another item) , ad- 
vances the print@area by 64 (AP=AQ), and increases AQ by 64 for 
the next poke location. 

Lines 1020-1030 start the process all over by going back to line 
590 to select another item. If the condition is met at line 590 (10 
items have been completed), the program will branch to line 1100. 

Line 1110 checks the amount of PI. If it is not equal to 0 (zero), 
the program will branch to the incorrect entries routine. 

Lines 1120-1190 are used for correct entries. ТА$ 15 torn apart 
and placed in another string, K$. If the decimal is encountered (line 
1130) the program will branch to the next statement in line 1150. In 
line 1160 K will assssume the amount of K$, through the VAL func- 
tion. 

Line 1170 contains a GOSUB to line 1400, which will again 
check the contents of TA$ (lines 1440 and 1450). If either condition 
is met, the variable K will be multiplied by the appropriate amount, 
for the addition of trailing zeros. 

Line 1180 increases the total points, TP(Y), by the value for 
each player. 

Line 1190 then branches to line 1320 as explained below. 

Lines 1200-1250 are used for missed items. They function in 
the same manner as lines 1120-1190, but the value of each item 
missed is subtracted from the player's total. The amount returned 
will be a negative number. 

Lines 1260-1300 are the print messages displayed when items 
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have been missed. The number of incorrect items (JJ), the total 
price, and the player's current score are displayed. 

Lines 1320-1340 are the print messages displayed when no 
items have been missed. The player's score is displayed. Note that 
all items must have been entered correctly or the player will 
receive a negative score, even if only one was missed. 

Lines 1350-1420 begin the cycle again for the next 10 items, if 
the condition is not met at line 1380. Variables are cleared and 
strings are set to null. 

Lines 1430-1490 are explained above. 

Lines 1500-1520 restore the data list for another reading be- 
fore the selection of the next player, if any remain. 

Lines 1530-1610 sort the scores, along with the appropriate 
players' names, from high to low if there is more than one player 
(line 1535). If MM is equal to 1 in line 1600 and 1610, the list is not 
perfect and the sort will begin again. Otherwise the program will 
continue to line 1650. 

Lines 1650-1900 print all the players' names and their ac- 
cumulated scores and terminate the program. 

Lines 4000-4210 contain the data items and their correspond- 
ing prices. 
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RESPECT YOUR COMPUTER 


Do you have respect for your computer? Do you believe that it is 
telling you the truth all of the time?,You're ig for a surprise then! 
This is an excellent program to try on that person or friend who 
thinks he or she is always right or who feels they never make a 
wrong guess. Keep all heavy objects away from your computer 
when running this program; your friends might be tempted to bash 
the CPU in! 


Sample Run 


NATURALLY YOU SHOULD HAVE SOME 
RESPECT FOR YOUR COMPUTER, EVEN 
THOUGH IT IS ONLY A MACHINE. " 
THIS MACHINE WILL NOW TEST YOUR e 
PATIENCE, TO SEE JUST HOW MUCH 
RESPECT YOU DO HAVE FOR THIS 

MACHINE. YOU SEE, THIS 

IS ONE GAME THAT YOUR COMPUTER 

WILL STAKE ITS CIRCUITS ON! 

YOU CANNOT, AND WILL NOT 

BEAT IT !!! 
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PRESS ENTER...PLEASE? 


IF YOU ARE READY, WE WILL NOW 
BEGIN, | HAVE SELECTED A NUMBER 
BETWEEN 1 AND 10, TELL ME 

THE NUMBER? 4 

YOUR NUMBER: 4 

SORRY. 


NUMBERS GUESSED: 4 
GUESS AGAIN... 

THE NUMBER? 1 

YOUR NUMBER: 1 
SORRY. 

NUMBERS GUESSED: 4 1 
GUESS AGAIN... 

THE NUMBER? 9 

YOUR NUMBER: 9 
SORRY. 


NUMBERS GUESSED :4 19 
GUESS AGAIN... 


THE NUMBER? 3 

YOUR NUMBER: 3 

SORRY. 

NUMBERS GUESSED: 4 1 9 3 
GUESS AGAIN... 

THE NUMBER? 10 

YOUR NUMBER: 10 

SORRY. 


NUMBERS GUESSED : 4 1 9 3 10 
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GUESS AGAIN... 

THE NUMBER? 8 

YOUR NUMBER: 8 

SORRY. 

NUMBERS GUESSED: 4 1 9 3 108 
GUESS AGAIN... 

THE NUMBER? 7 

YOUR NUMBER: 7 

SORRY. 

NUMBERS GUESSED: 4 193 1087 
GUESS AGAIN... 

THE NUMBER? 6. 

YOUR NUMBER: 6 

SORRY. 

NUMBERS GUESSED: 4 19310876 
GUESS AGAIN... 

THE NUMBER? 2 

YOUR NUMBER: 2 

SORRY. 

NUMBERS GUESSED: 4 193 108762 
GUESS AGAIN... 


NEVERMIND... 
THE NUMBER I HAD SELECTED WAS: 5 


YOUR GUESSES МЕНЕ: 4193 10876 2 
LET'S TRY AGAIN... 
OF THE 9 GUESSES YOU MADE, 
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NONE OF THEM MATCHED THE 
NUMBER І HAD SELECTED..... 


STOP 


This is not a complete run. 


PRINT 
INSTRUCTIONS 


MESSAGE 


N 
CHANGE 
VALUE OF X 
MESSAGE 


Flowchart for Respect Your Computer. 


Program Listing 


100 REM PROGRAM TITLE: RESPECT YOUR COMPUTER 
150 CLS 
200 RANDOM: P=1:Q=1:X=10:1F WW-zi THEN 900 
250 PRINT"NATURALLY YOU SHOULD HAVE SOME" 
300 PRINT"RESPECT FOR YOUR COMPUTER, EVEN" 
350 PRINT'"THOUGH IT IS ONLY A MACHINE." 
400 PRINT'THIS MACHINE WILL NOW TEST YOUR" 
450 PRINT" PATIENCE TO SEE JUST HOW MUCH" 
500 PRINT "RESPECT YOU DO HAVE FOR THIS" 
550 РНІМТ"МАСНІМЕ. YOU SEE, THIS" 

600 PRINT'"IS ONE GAME THAT YOUR COMPUTER" 
650 PRINT'"VILL STAKE ITS CIRCUITS ON" 
700 PRINT"YOU CANNOT, AND WILL NOT" 
790 PRINT'"BEAT IT !!!" 
800 PRINT 
850 INPUT"PRESS ENTER. . . PLEASE" ; ХХ 
900 CLS 
950 PRINT"IF YOU ARE READY, VE WILL NOW" 

1000 PRINT"BEGIN. I HAVE SELECTED À NUMBER" 
1050 PRINT"BETWEEN 1 AND";X," TELL МЕ" 
1100 INPUT"THE NUMBER";N 

1150 IF N<i OR N)X THEN 1100 

1200 PRINT"YOUR NUMBER: ";N 

1250 FOR І-і TO 800:NEXT 

1300 PRINT CHRS(83);,CHR$(79) ,CHRS (82); 

1350 PRINT CHR$(822;CHR$(892;CHRS(46) 

1400 PRINT 

1450 А‹Р) =м 

1500 PRINT'"NUMBERS GUESSED:"; 

1550 FOR I=1 TO P:PRINT ACI); :NEXT 

1600 PRINT: P=P+i 

1650 PRINT"GUESS AGAIN..." 

1700 IF Р>-Х THEN 1900 

1800 PRINT 

1850 GOTO 1100 

1900 PRINT 

1950 PRINT'"NEVERMIND..." 

2000 PRINT"THE NUMBER I HAD SELECTED WAS: " ; 

2050 A= 

2100 FOR Isi TO P-1 

2150 IF А<2А(1І) THEN NEXT:GOTO 2250 

2200 A=A-~1:GOTO 2100 

2250 REM PRINT NUMBER 

2300 PRINT A: PRINT 

2350 PRINT“ YOUR GUESSES WERE:", 

2400 FOR І-і TO P-1 
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2450 
2500 
2950 
2600 
2650 
2700 
2730 
2800 
2850 
2900 
3000 
3050 
3100 
3150 
3200 
3250 
3300 
3350 
3400 
3450 
3200 
3550 
3600 
3650 
3700 
3750 
3800 
3850 
3900 
3950 
4000 
4050 
4100 
4150 
4200 
4250 
4300 
4350 
4400 
4480 
4500 
4550 
4600 
4650 
4700 
4750 


PRINT А(1);:МЕХТ 
PRINT 

Q=Q+1:  TP=TP+P-1 

IF @)=4 THEN 3000 

PRINT"LET'S TRY "; 

IF 0-3 PRINT"ONCE MORE. ..":GOTO 2800 
PRINT"AGAIN..." 

FOR Isi TO 1200:NEXT 

PRINT:P=1 

GOTO 850 

PRINT 

PRINT"OF THE";TP;"GUESSES YOU MADE," 
PRINT"NONE OF THEM MATCHED THE" 
PRINT"NUMBER I HAD SELECTED....." 

FOR Is1 TO 2000:МЕХТ:2-Х 

REM MORE ? 

IF X=10 THEN X=5:GOTO 3450 

IF X=5 THEN X=3:GOTO 3450 

A=0:GOTO 3850 

PRINT:Pzsi1:Qs1:1F X=3 GOTO 3600 
PRINT"TO TAKE THIS A STEP FURTHER," 
PRINT"LET'S TRY SOMETHING DIFFERENT." 
PRINT"INSTEAD OF 1 AND";Z;"I WILL" 
PRINT"SELECT BETWEEN 1 AND";X; "AND" 
PRINT GIVE YOU" ;X-1;"TRIES..  " 

PRINT 

GOTO 850 

PRINT 

PRINT"THIS IS REALLY HARD TO BELIEVE..." 
PRINT"YOU MADE";TP;"GUESSES, I GAVE" 
PRINT"YOU THREE DIFFERENT BREAKS AND" 
PRINT"YOU MATCHED";A;"OF THE NUMBERS" 
PRINT"THAT I SELECTED !!!" 

FOR I=1 TO 3000:NEXT 

CLS:PRINT CHR$(23) 

PRINT"YOU CAN'T WIN..... " 

PRINT: PRINT" TURKEY !!" 

FOR Is1 TO 1500:NEXT:CLS 

PRINT"READY TO TRY AGAIN, YOU'LL" 
PRINT"GET THE SAME BREAKS AS BEFORE"; 
INPUT X$ 

IF X$="N" OR X$="NO" THEN 4650 
WW=1:GOTO 100 

CLS: PRINT CHR5(23) 

PRINT"CHICKEN. .." 

GOTO 4750 
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Variables and Strings 


P - Attempts (guesses) 

X - Attempts per run 

N - Number input as guess 

A(D - Subscripted variable for guesses 

A - Computer selected number 

TP - Total guesses 

Z - Value of X (current) for message 

WW - For skipping the instructions (playing more than once) 


Explanation of the Program Lines 


Line 200 initializes three variables and skips the instructions if 
WW is equal to 1 (more than one run). 

Lines 250-850 print the general instructions. 

Lines 900-1100 begin the rounds and accept user's guess. 

Line 1150 tests the value of N to make sure it is within the 
specified limits. 

Lines 1200-1550 print several messages and the number 
guessed. It then places each number in a subscript A(P) — N for 
further reference. 

Lines. 1600-1850 cause a return to line 1100 for another guess if 
P is not greater than or equal to X. 

Lines 1900-2450 print the number selected by the computer 
and all of the numbers the user selected. 

Lines 2500-2900 begin it all again if Q is less than or equal to 3 
and the user has not hit the computer with a hammer. 

Lines 3000-3800 print the user's total number of guesses, 
change the value of X to a lower number, and then start the routine 
again. If X — 3, the program branches to line 3850. 

Lines 3850-4750 print a closing message and ask the user if he 
or she would like to try again. 
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CEES 2213 
МӘМС 


LOVE ONE ANOTHER 


Having problems with your spouse, girlfriend, or boyfriend? Don't 
take it to court, take it to your computer ! If you're having difficulties 
expressing your complaint , you can register it with this program. 
Then your wife, husband, girlfriend, or boyfriend can register his or 
her complaints. The final outcome? Discussions of problems you 
thought didn't exist! 


Sample Run 


LOVE ONE ANOTHER 


ARE YOU MARRIED? YES 

WHAT IS YOUR SPOUSE'S 

FIRST NAME, PLEASE? MARGRET 

SO YOU ARE HAVING A FEW PROBLEMS 
AND NEED YOUR COMPUTER'S ASSISTANCE? 
YOU WILL GO THROUGH THE PROGRAM 
FIRST; THEN MARGRET CAN GO THROUGH 
IT. | WILL THEN GO THROUGH EACH 

LIST AND PICK OUT THE MAJOR 

ISSUES. IF AT ALL POSSIBLE, KEEP 
COMPLAINTS TO THREE OR FEWER 
WORDS. THIS WILL KEEP THINGS 

EASIER TO MANAGE. 
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BEGIN? 


YOUR FIRST NAME? SAM 

SAM YOU WILL HAVE THE 
OPPORTUNITY TO REGISTER 
UP TO 10 COMPLAINTS. IF YOU 
DO NOT HAVE 10, JUST PRESS 
'ENTER' FOR A COMPLAINT. 


LET'S HAVE COMPLAINT NUMBER 1 ?RELATIVES 
NUMBER 2 ?COMMUNICATION 

NUMBER 3 ?SMOKING 

NUMBER 4 ?GOING PLACES 

NUMBER 5 ЗЕ Se 

NUMBER 6 ? 


WE WILL NOW GIVE EACH 
COMPLAINT A PRIORITY NUMBER. 
THESE NUMBERS WILL RANGE 
FROM 1 (LEAST SIGNIFICANT) 

TO 10 (MOST SIGNIFICANT). NO 
FRACTIONS, PLEASE. : 


COMPLAINT NUMBER 1 : 
RELATIVES...PRIORITY? 8. 
COMPLAINT NUMBER 2 
COMMUNICATION...PRIORITY? 10. 
COMPLAINT NUMBER 3 : 
SMOKING...PRIORITY? 6. 
COMPLAINT NUMBER 4 : 

GOING PLACES...PRIORITY? 7. 
COMPLAINT NUMBER 5: 
RELATIVES...PRIORITY? 8. 


PROCESSING DATA... 

ALL COMPLAINTS HAVE BEEN 
PROCESSED AND PLACED IN 
PRIORITY ORDER, SAM. 


IF YOU WILL CALL MARGRET TO 
THE COMPUTER, | WILL ACCEPT 
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THE 'OTHER SIDE' OF THE 


MARGRET PRESS ENTER? 

MARGRET, SAM HAS ENTERED 5 
COMPLAINTS. | WILL NOW RECEIVE 
YOUR VERSION OF COMPLAINTS, AND 
THEN COMPARE THE TWO SETS 

AND RETURN MY FINDINGS... 


MARGRET YOU WILL HAVE THE 
OPPORTUNITY TO REGISTER UP 
TO 10 COMPLAINTS, IF YOU 

DO NOT HAVE 10, JUST PRESS 
ENTER' FOR A COMPLAINT. 


LET'S HAVE COMPLAINT NUMBER 1 ?RELATIONS 


NUMBER 2? 


WE WILL NOW GIVE EACH 
COMPLAINT A PRIORITY NUMBER. 
THESE NUMBERS WILL RANGE 
FROM 1 (LEAST SIGNIFICANT) 

TO 10 (MOST SIGNIFICANT). NO 
FRACTIONS, PLEASE. 


COMPLAINT NUMBER 1: 
HELATIONS... 


PRIORITY? 1 


PROCESSING DATA... 


ALL COMPLAINTS HAVE BEEN 
PROCESSED AND PLACED IN 
PRIORITY ORDER MARGRET. 
SAM HAS MORE 

COMPLAINTS, AS YOU PROBABLY 
SEE IN THE PRINTOUT, MARGRET. 
BUT THAT ISN'T THE ISSUE. 
WHAT IS IMPORTANT ARE THE 
MAJOR COMPLAINTS: 

SAM'S IS: COMMUNICATION 
MARGRET’S IS: RELATIONS 
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INSTRUCTIONS 
STOP 
N 
Y 


INPUT NAME 


CURRENT USERS 
NAME 


COMPLAINT 
(INPUT) 


Ф 


PRIORITY 
{INP 


OUTPUT 
MESSAGE 
COMPLAINT 


UT} 

¥ 
N 

Y 


ч FINAL 
MESSAGE 


S 


N 


SECOND USER 
ENTRIES 
TRANSFER DATA 
SORT LISTS 


Flowchart for Love One Another. 


114 


DISCUSS THIS PROBLEM BETWEEN 
YOURSELVES NOW, THEN PRESS ENTER? 


MARGRET HAS NO MORE COMPLAINTS. 
SAM'S OTHER COMPLAINTS ARE: 
RELATIVES 

DISCUSS THIS PROBLEM BETWEEN 
YOUSELVES NOW, THEN PRESS ENTER? 


MARGRET HAS NO MORE COMPLAINTS. 
SAM'S OTHER COMPLAINTS ARE: 
GOING PLACES 


STOP 


This is nota complete run. In between the discussions of the 
complaints, each is placed on a chart for viewing. 


Program Listing 


010 REM PROGRAM TITLE: LOVE ONE ANOTHER 

20 CLEAR 1000:CLS 

30 PRINT"LOVE ONE ANOTHER": PRINT 

40 INPUT"ARE YOU MARRIED"; А5 

90 IF LEFT$S(AS$,10z"Y" THEN 120 

60 PRINT"ARE YOU CURRENTLY DATING A" 

70 INPUT"GIRLFRIEND OR BOYFRIEND",;AS$ 

80 IF LEFTS(A$,10z"Y" THEN 160 

90 PRINT"WHY ARE YOU RUNNING THIS" 

100 PRINT"PROGRAM. ..DINGY !!!" 

110 GOTO 1840 

120 PRINT"WHAT IS YOUR SPOUSE'S" 

130 PRINT"FIRST NAME, PLEASE"; 

130 INPUT М5 

150 PRINTGO,CHR$(302;:GOTO 180 
160 PRINT"VHAT IS YOUR GIRLFRIEND OR" 

170 PRINT"BOYFRIEND'S FIRST NAME";:GOTO 140 
180 PRINT"SO YOU АНЕ HAVING А FEW PROBLEMS" 
190 PRINT'"AND NEED YOUR COMPUTER'S ASSISTANCE." 
200 PRINT"YOU WILL GO THROUGH THE PROGRAM" 
210 PRINT"FIRST, THEN ";N$," CAN GO THROUGH" 
220 PRINT"IT. I WILL THEN GO THROUGH EACH" 
230 PRINT"LIST AND PICK OUT THE MAJOR" 
240 PRINT"ISSUES. IF AT ALL POSSIBLE, KEEP" 
250 PRINT"COMPLAINTS TO LESS THAN FOUR" 
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260 PRINT"WORDS THIS WILL KEEP THINGS" 

270 PRINT"EASIER TO MANAGE." 

280 PRINT 

2?0 PRINT 

300 INPUT" BEGIN"; A$ 

310 CLS:DIM C$C11)2,PC11) 

320 INPUT"YOUR FIRST МАМЕ"; ММ 

330 PRINT NN5;" YOU WILL HAVE THE OPPORTUNITY" 
340 PRINT'TO REGISTER UP TO TEN COMPLAINTS,IF YOU" 
350 PRINT"DO NOT HAVE 10, JUST PRESS" 

360 PRINT"'ENTER' FOR А COMPLAINT." 

370 PRINT 

380 Cel 

390 PRINT “LET'S HAVE COMPLAINT NUMBER";C; 

400 IF С>-2 PRINT"NUMBER ",;C; 

410 INPUT C$(C):GOTO 1220 


420 IF С5(С<>:-"" THEN 470 
430 REM STEP COUNTER 
440 C=C+i 


450 IF C=11 THEN 470 

460 СОТО 400 

470 I=C-1 

480 IF І-0 THEN 370 

490 CLS 

300 PRINT'"WE WILL NOW GIVE EACH" 

510 PRINT"COMPLAINT А PRIORITY NUMBER." 
920 PRINT'"THESE NUMBERS WILL RANGE" 

930 PRINT"FROM 1 (LEAST SIGNIFICANT)" 
340 PRINT'TO 10 (MOST SIGNIFICANT), NO" 
290 PRINT'FRACTIONS, PLEASE." 

260 PRINT 

970 С-1 

580 PRINT “COMPLAINT NUMBER",;C,";"' 

990 PRINT С5(6050;"..."; 

600 INPUT"PRIORITY";P(C) 

610 IF P(G)<1 ОН P(C2»10 THEN 630 ELSE C=G+1 
620 IF C»1 THEN 650 

630 CLS 

640 GOTO 580 

650 REM ARRANGE AS PER PRIORITY 

655 PRINT'"PROCESSING DATA..." 

660 Czi:Xz0 

670 IF Р(С)›=Р(С+1› THEN 710 

680 P=P(C)  PK<KC)=P(C+1) : PCC 10 =P 

690 C$z2C$CCO:C$ (COZzCSCCe12:C$ (G+1)=CG5 
700 Х-1 

710 C=C+1 

720 IF С21 THEN 740 


116 


730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
240 
950 
960 
970 
980 
7:20 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 


GOTO 670 

IF Х-і THEN 660:REM ORDER AGAIN 
REM IN ORDER 

PRINT"ALL :COMPLAINTS HAVE BEEN" 
PRINT"PROCESSED AND PLACED IN" 


PRINT"PRIORITY ORDER, "IIIS К VT 
IF WWzi THEN 1010 

WWzi 

PRINT 

PRINT"IF YOU WILL CALL ";N$," ТО" 


PRINT'THE COMPUTER, I WILL ACCEPT" 
PRINT" THE 'OTHER SIDE' OF THE" 
PRINT"COIN.... "Ü 

PRINT N$;:INPUT" PRESS ЕМТЕН";Х 
CLS 

PRINT М%;", ";NN$;" HAS ENTERED"; I 
PRINT"COMPLAINTS, I WILL NOW RECEIVE" 
PRINT"YOUR VERSION OF COMPLAINTS," 
PRINT'"THEN COMPARE THE TWO SETS" 
PRINT"AND RETURN MY FINDINGS..." 
REM TRANSFER DATA 

FOR W=1 TO I 

WS$(W)zC$(W):C$(W)z"" 
W(W)=P(W) : РКМ) = 0 

NEZT 

X$S=NN$ : NN@=N$ : F= I 

PRINT 

GOTO 330 

REM ALL COMPLAINTS IN 

PRINT 

INPUT" ENTER PLEASE"; X 

CLS 

PRINT ТАВ(10) Х5; TAB(45) N$ 

PRINT TAB«(0»"COMPLAINT' ; 

PRINT TABC(18) "PRIORITY" ; 

PRINT TAB(35) "COMPLAINT", 

PRINT TAB(S2)"PRIORITY" 

FOR G=0 TO 59: РЕІМТ'Х"; :NEXT: PRINT 
Gasl:Is1 

PRINT ТАН(0) М5 (1), TAB(21) М(1); 
IF I»G THEN 1150 

PRINT TAB(35) C$(IO; TAB(S6) PCT) 
I=I+1 

IF I<=F THEN 1200 

IF І>Е AND [¢=G THEN 1130 

REM BRANCH TO RESULTS 

GOTO 1300 

IF I»G THEN PRINT:GOTO 1120 
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1210 GOTO 1120 
1220 REM LETTER COUNT (LENGTH) 


w < w ы ж w w чє w тй и ч “ w = w. w w 


) 
1230 IF LEN(C§(C))>=21 THEN 1250 
1240 GOTO 420 
1290 PRINT"YOU NEED TO SHORTEN" 
1260 РКІМТ"ТНЕ COMPLAINT А LITTLE." 
1270 GOTO 400 
1300 REM RESULTS 
1310 PRINT: INPUT"KEY ENTER WHEN READY";X 
1320 CLS 
1330 IF F>G THEN PRINT X$;:R#1:GOTO 1360 
1340 IF F=G THEN 1410 
1350 PRINT N$; 
1360 PRINT" HAS MORE' 
1370 PRINT"COMPLAINTS, AS YOU PROBABLY" 
1380 PRINT'SEE IN THE PRINTOUT '; 
1390 IF R-1 PRINT М5;“.“:СОТО 1440 
1400 PRINT X$,".":GOTO 1440 
1410 PRINT X$;" YOU AND ";N$;" HAD AN" 
1420 PRINT"EQUAL AMOUNT OF COMPLAINTS, AS" 
1430 PRINT"YOU PROBABLY KNOW BY NOW." 
1440 РНІМТ:Ісі 
1450 PRINT"BUT THAT ISN'T THE ISSUE." 
1460 PRINT"WHAT IS IMPORTANT ARE THE" 
1470 PRINT'MAJOR COMPLAINTS: " 
1480 PRINT Х5;" "8 IS: “;М% (1) 
1490 PRINT М5;""5 IS: “;С58 (1) 
1500 PRINT 
1510 PRINT"DISCUSS THIS PROBLEM BETWEEN" 
1520 PRINT"YOURSELVES NOW, THEN PRESS ENTER", 
1530 INPUT &:CLS 
1940 I=I+i 
1550 IF ІОҒ THEN 1600 
1560 IF I>G THEN 1630 
1970 PRINT: IF JJ=1 THEN 1650 
1580 PRINT'"THE NEXT AREA OF COMPLAINTS:" 
1590 GOTO 1480 
1600 PRINT Х5;" HAS NO MORE COMPLAINTS." 
1610 IF I»G THEN 1630 
1620 GOTO 1650 
1630 PRINT N5;" HAS NO MORE COMPLAINTS." 
1640 СОТО 1690 
1650 PRINT М5;“"5 OTHER COMPLAINTS АНЕ:" 
1680 JJ=l 
1670 PRINT G$ (I) 
1680 GOTO 1500 
1690 IF IDF THEN 1750 
1700 PRINT X$,"'$ OTHER COMPLAINTS АНЕ." 
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1710 JJ=2 

1720 PRINT W$(I) 

1730 GOTO 1500 

17950 REM FINISH 

1760 PRINT 

1770 PRINT"IF YOU DID NOT SOLVE ALL" 
1780 PRINT'"OF YOUR DISAGREEMENTS RUN" 
1790 РНІМТ“ТНЕ PROGRAM AGAIN." 

1800 PRINT 

1810 PRINT"REMEMBER, WHEN YOU HAVE PROBLEMS" 
1820 PRINT"DON'T TAKE IT TO COURT..." 
1830 PRINT'"TAKE IT TO YOUR COMPUTER." 
1840 PRINT 

1850 PRINT"END OF PROGRAM." 

1860 END 


Variables and Strings 


A$ - General string input 

N$ - First name of spouse, girlfriend, or boyfriend 

С$@) - Subscripted, for up to 10 complaints 

Р() - Subscripted, for up to 10 priority numbers 

C - Counter, number of complaints 

I - Total of variable C minus 1 

C$ and X - Used for placing complaints in order of priority 

WW - Will be equal to 1 when both parties have entered complaints 

NN$ - Current user (entering data) 

W$(I) and W(I) - Take on the contents of C$(D and Р(Т) before the 
second user enters data 

X$ - Contents of NN$ (first name) 

F - Value of I (total, first users entries) 

G - Value of I (total, second users entries) 

R - For correct message output 

JJ - Correct message output 


Explanation of the Program Lines 

Line 20 clears 1000 bytes of memory for string storage. 

Lines 40-170 ask the first user for the first name of his or her 
spouse, girlfriend, or boyfriend. If the questions are not applicable, 
the program is terminated. 

Lines 180-310 display the general instructions. 

Lines 320-460 lets the current user input up to 10 complaints. 

Line 410 sends program control to line 1220, which tests the 
length of each complaint. This insures that the printout (chart) will 
be kept as neat and readable as possible. 
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Lines 470-480 sets the value of I to C-1. If I= 0 (zero), the 
program will loop back to line 370, the beginning of the complaint 
entries. 

Lines 490-640 allow the user to input priority values for each 
complaint entered. 

Lines 650-780 rearrange the complaints according to their 
priority numbers, so that the complaints are arranged from highest 
priority to lowest priority when printed. 

Lines 790-1000 allow the users partner to register his or her 
complaints. Lines 930-980 transfer the current data to alternate 
strings and variables, so the information will not be lost when the 
second person enters his or her complaints. Line 1000 sends pro- 
gram control back to line 330 for the entry of the new complaints. 

Lines 1010-1190 display each user's complaints and priorities 
in order from high (most important) to low (least important). 

Lines 1310-1440 display generalized messages for each user. 

Lines 1450-1730 display each user's complaints one at a time, 
and allow them to discuss each one before continuing. 

Lines 1750-1860 display the final message and end the pro- 
gram. 
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I HAVE FOUND THAT 
YOU WOULD BE 
MOST COMPATIBLE 
WITH THE GOLDFISH 
YOU NOW OWN! 


DATE SERVICE 


Been having problems finding the right person to date? Have no 
fear; your computer will now try and rescue you ! Naturally, you and 
up to 9 others (of the opposite sex) will answer all necessary 
questions. After this, the computer will compile all data collected 
and tell you who you would be most compatible with. Keep in mind 
that this is only a simulation or game. The computer has no way of 
judging the final outcome of a person's thought pattern. 


Sample Run 
*DATE SERVICE: 


OPERATING INSTRUCTIONS? YES 


BEEN HAVING PROBLEMS FINDING 

THE RIGHT PERSON TO DATE? 

HAVE NO FEAR - COMPUTER DATE 
SERVICE IS HERE !! 

NATURALLY, YOU'LL NEED TO INPUT 
REQUIRED DATA SO THE COMPUTER 
CAN SORT AND SELECT A PERSON 
THAT MIGHT BE COMPATIBLE WITH YOU. 


YOUR FIRST NAME? MAC 


AGE? 31 
MALE OR FEMALE (1 or 2)? 1 
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USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY?COMPUTERS 
YOUR INTEREST?MONEY 
WHAT YOU LIKE?FOOD 
WHAT YOU DISLIKE?NOISE 
TYPE OF MUSIC? EASY 
TYPE OF CAR? LARGE 
COLOR CHOICE? BLUE 


THE NEXT PART OF THE PROGRAM 
WILL BE DEALT WITH IN ONE 

OF TWO WAYS: 

FIRST, YOU CAN HAVE SOMEONE 
ELSE ANSWER THE QUESTIONS. 
SECOND, YOU CAN ANSWER THEM 
ABOUT PERSONS YOU KNOW. 


) 


WHAT WILL IT BE (1 or 2)? 


b 


” 


SEND IN FEMALE # 1 
TO ANSWER THE QUESTIONS. YOU 
SHOULD NOT BE PRESENT, MAC. 


PRESS ENTER WHEN READY 


YOUR FIRST NAME? SARAH 

AGE? 29 

USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY?COOKING 
YOUR INTEREST?SEWING 
WHAT YOU LIKE? PARTIES 
WHAT YOU DISLIKE?NOISE 
TYPE OF MUSIC? EASY 
TYPE OF CAR? SMALL 
COLOR CHOICE? RED 


SEND IN FEMALE # 2 
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TO ANSWER THE QUESTIONS. YOU 
SHOULD NOT BE PRESENT, SARAH. 


PRESS ENTER WHEN READY 


YOUR FIRST NAME? SANDRA 

AGE? 32 

USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY?COMPUTERS 
YOUR INTEREST?COLLECTING 
WHAT YOU LIKE?FOOD 

WHAT YOU DISLIKE?BUGS 
TYPE OF MUSIC? ROCK 

TYPE OF CAR? SMALL 

COLOR CHOICE? BLUE 


SEND IN FEMALE # 3 
TO ANSWER THE QUESTIONS, YOU 
SHOULD NOT BE PRESENT, SANDRA. 


PRESS ENTER WHEN READY 


YOUR FIRST NAME? MARTHA 

AGE? 28 

USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY?MEN 

YOUR INTEREST?MONEY 
WHAT YOU LIKE?DIAMONDS 
WHAT YOU DISLIKE?ANIMALS 
TYPE OF MUSIC? EASY 

TYPE OF CAR? LARGE 
COLOR CHOICE? GREEN 


SEND IN FEMALE # 4 
TO ANSWER THE QUESTIONS. YOU 
SHOULD NOT BE PRESENT, MARTHA. 


PRESS ENTER WHEN READY 
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YOUR FIRST NAME? ROBIN 

AGE? 35 

USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY?STAMPS 

YOUR INTEREST?FLYING 

WHAT YOU LIKE?7LARGE HOUSES 

WHAT DO YOU DISLIKE? SMALL HOUSES 
TYPE OF MUSIC? ANY KIND 

TYPE OF CAR? LARGE 

COLOR CHOICE? BLUE 


SEND IN FEMALE # 5 
TO ANSWER THE QUESTIONS. YOU 
SHOULD NOT BE PRESENT, ROBIN. 


PRESS ENTER WHEN READY 


YOUR FIRST NAME? SHERRY 

AGE? 27 

USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY?FUHNITURE 

YOUR INTEREST?CARS 

WHAT YOU LIKE?72MONEY 

WHAT YOU DISLIKE?FAST FOODS 
TYPE OF MUSIC? COUNTRY 
TYPE OF CAR? SMALL 

COLOR CHOICE? PURPLE 


IF MAC IS NOT PRESENT, SEND 
HIM TO THE COMPUTER, PLEASE. 


MAC, 5 WOMEN ANSWERED THE QUESTIONNAIRE. 
DO YOU HAVE MORE, OR SHALL 

| PROCESS THE CURRENT DATA. 

(MORE OR PROCESS)? PROCESS 

! WILL NOW SORT AND PROCESS THE DATA 

YOU WILL KNOW IF ONE WILL BE 

COMPATIBLE IN A MOMENT MAC. 
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START 


INSTRUCTIONS 
IF NEEDED 


INPUT ALL 
DATA 


MORE DATA 


PROCESS 
ALL DATA 


OUTPUT LIST - 
PERCENT AMTS 


FINAL 
MESSAGE 


Flowchart for Date Service. 
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NAME PERCENT COMPATIBLE 


SANDRA....... 50 % 
MARTHA....... 50 % 
SARAH....... 37.5 % 
ROBIN....... 37.5 % 
SHERRY..... 12.5 % 
ENTER? 


REMEMBER, THIS IS ONLY A 
COMPUTER PROGRAM 
EXPRESSING WHO MIGHT BE 
COMPATIBLE WITH YOU THROUGH 
ENTERED DATA.... 


END OF*«DATE SERVICE*« 


Program Listing 


$10 REM PROGRAM TITLE: DATE SERVICE 
40 CLEAR 1000:DIM R(12» 
30 RANDOM: J=0.AM=5 
40 CLS:M$z'"MALE":F$2"FEMALE":USzZ"YQUR" 
90 PRINT"** DATE SERVICE хх" 
60 PRINT: E$z'"YOU" 
70 РНІМТ"ОРЕНАТІМС INSTRUCTIONS (Ү/М)"; 
80 INPUT AS 
90 IF LEFTS(ÀA5,10«4»"Y'" THEN 190 
100 PRINT 
110 PRINT"BEEN HAVING PROBLEMS FINDING" 
120 РНІМТ"ТНЕ RIGHT PERSON TO DATE ?" 
130 PRINT"HAVE NO FEAR - COMPUTER DATE' 
140 PRINT'"SERVICE IS HERE !!" 
150 PRINT"NATURALLY, YOU'LL NEED TO INPUT" 
160 PRINT"REQUIRED DATA SO THE COMPUTER" 
170 PRINT"CAN SORT AND SELECT А PERSON" 
180 PRINT'"THAT MIGHT BE COMPATIBLE WITH YOU." 
190 PRINT 
200 PRINT У5;" FIRST NAME", 
205 INPUT N$(JO:IF N$(JOz"" THEN 200 
210 ІМРУТ"АСЕ”;А(/У) 
219 IF 7<20 THEN PRINT:GOTO 230 
220 INPUT"MALE OR FEMALE (і OR 2)";5: PRINT 
229 IF S=i THEN W$=F$ ELSE W$zMS 
230 PRINT"USING ONE WORD FOR EACH, ANSWER" 
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240 PRINT'THESE QUESTIONS  "; 

245 IF 5Е<22 THEN PRINT N$(J);"." ELSE PRINT 
220 PRINT U$;" HOBBY"; : INPUT A$(J) 

260 PRINT U$;" INTEREST";: INPUT B$ (J) 
270 PRINT'WHAT “;Е6;" LIKE"; 

272 IF SE=2 PRINT'S"; 

273 INPUT Cs OJ) 

280 PRINT"WHAT “;Е5;" DISLIKE"; 

282 iF SE=2 PRINTS"; 

285 INPUT D$ (J) 

290 INPUT'TYPE OF MUSIC";E$(J) 

300 INPUT"TYPE OF CAR";F$(04J) 

310 INPUT"COLOR CHOICE";G$S(J) 

320 CLS:IF J=AM THEN 620 

325 IF J¢>0 PRINT: J=J+1:GOTO 430 

330 PRINT"THE NEXT PART OF THE PROGRAM" 
340 PRINT"VILL BE DEALT WITH IN ONE" 
390 PRINT"OF TWO WAYS:" 

360 РКІМТ"ҒІН5Т, YOU CAN HAVE SOMEONE" 
370 PRINT'"ELSE ANSWER THE QUESTIONS." 
380 PRINT'SECOND, YOU CAN ANSWER THEM" 
390 PRINT'"ABOUT PERSONS YOU KNOW." 

400 PRINT: J=J+1 

410 PRINT"WHAT WILL IT BE (1 OR 2)"; 
420 INPUT SE:N$=N$(0) 

430 IF SE=1 THEN 460 

440 IF SE=2 THEN 540 

450 GOTO 400 

460 REM OTHERS TO INPUT 

470 PRINT'SEND IN ";W$;" &$";J 

480 РНІМТ"ТО ANSWER THE QUESTIONS, YOU" 
490 PRINT'"SHOULD NOT BE PRESENT, "; 
495 IF J=6 PRINT:GOTO 510 

500 PRINT N$(J-12;" ":PRINT 

310 PRINT"PRESS ENTER WHEN READY"; 

2920 INPUT X$ 

230 CLS:GOTO 190 

40 REM USER ТО INPUT 

249 IF J>=2 PRINT"ANSWER ";:GOTO 600 
550 РНІМТ"ҮОУ ARE ABOUT TO ANSWER THE" 
360 PRINT'"QUESTIONS FOR THE "; м5; "'8" 
970 PRINT'"THAT YOU KNOW. DO NOT BE" 
980 PRINT"ONE SIDED TO TRY AND OBTAIN" 
590 PRINT"A COMPATIBLE PERSON. ANSWER" 
600 PRINT'"AS FACTUALLY AS POSSIBLE, "; 
610 PRINT N$;".":GOSUB 850:PRINT:GOTO 510 
620 REM DATA IN 

630 CLS 
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640 PRINT"IF ";N$;" IS NOT PRESENT, SEND" 
650 IF S-1 PRINT"HIM ";:GOTO 670 

660 PRINT'HER "; 

670 PRINT'"TO THE COMPUTER, PLEASE." 

680 PRINT:IF AA-AM-X THEN PRINT:GOTO 890 


685 IF SE=2 PRINT"YOU HAVE ";:GOTO 720 
690 PRINT №; ",";Ј; 
700 IF 5-1 PRINT"WOMEN ";:GOTO 720 


710 PRINT"MEN '; 

720 PRINT"ANSWERED THE QUESTIONNAIRE." 
730 PRINT"DO YOU HAVE MORE, ОН SHALL" 

740 PRINT"I PROCESS THE CURRENT DATA." 
750 INPUT" (MORE OR PROCESS)";Q5 

760 IF Q$="MORE" THEN 790 

770 IF Q$="PROCESS" THEN PRINT:GOTO 890 
780 PRINT:GOTO 690 

790 PRINT М5;" UP TO";10-J;"MORE CAN" 

800 PRINT" ANSWER, THEN I MUST PROCESS." 
810 INPUT"HOW MANY MORE DO YOU HAVE';X 
820 AA=AM: AM=AM+X 

830 IF AM>=11 THEN AM=AA:PRINT: GOTO 790 
840 J=J+1:PRINT: IF SE=2 THEN 510 ELSE 460 
850 REM FOR INPUT 

855 IF J>=2 RETURN 

860 IF 5-і THEN US="HER" :E$S$="SHE":GOTO 880 
870 U$S="HIS": ES="HE" 

880 RETURN 

890 IF АА<АМ THEN AR=AM ELSE AR=AA 

900 PRINT"I WILL NOW SORT AND PROCESS DATA" 
910 PRINT" YOU WILL KNOW IF ONE WILL BE" 
920 PRINT"COMPATIBLE IN A MOMENT ";N5;"." 
930 Iz20:Xz1:Pzl1 

940 IF ABSCACI)-ACK))¢=5 THEN GOSUB 1150 
950 ON P GOTO 960,970,980,990,1000,1010,1020 
960 Т5-А5(1):А%-«А%5(5):Сс070 1030 

970 T$=B$(1):A$=BS(X):GOTO 1030 

980 Т65-С9(І).:А%5-С5(Х):060Т0 1030 

990 T$zD$(CI2:A$-zD$CX2:GOTO 1030 

1000 TS=E$(1I):A$=E$(X):GOTO 1030 

1010 Ts=FS¢(I):AS=F5(K):GOTO 1030 

1020 T$=G$S (I): AS=G5 (X) 

1030 IF T$()A$ THEN 1050 

1040 GOSUB 1150:REM MATCH 

1050 Р=Р+1 

1060 ІҒ Р-8 ТНЕМ 1080 

1070 СОТО 950 

1080 R(X)=TR:P=1 

1090 Х-Х41 
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1100 IF X>AR THEN 1180 

1110 TR=0:GOTO 940 

1150 REM POINT PER MATCH 

1160 TR=TR+12.5 

1170 RETURN 

1180 REH PERCENT 

1190 Izi:FzO0 

1200 IF R(I)=0 THEN 1240 

1210 IF R(I)>=R(I+1) THEN 1240 

1220 R=R(I):R(I)=R(I+1):R(I+1)=R:F=1 
1230 N$š=N$(I):N$S(I)=N$š(I+1):NS(I+1)=N$ 
1240 =I+1 

1290 IF I>AR THEN 1270 

1260 GOTO 1200 

1270 IF Fzi THEN 1190 

1280 REM LIST 

1290 PRINT"NAME" TAB(20)"PERCENT COMPATIBLE" 
1300 PRINT:FOR I=1 TO AR 

1310 IF R(I2z0 THEN 1330 

1320 PRINT N5(10;"....... “ТАВ(25) RCI); '%" 
1330 NEXT 

1340 PRINT: FOR I-1 TO 2000 

1350 NEXT: INPUT" ENTER"; X:CLS 

1360 PRINT" REMEMBER, THIS IS ONLY А" 
1370 PRINT"COMPUTER PROGRAM" 

1380 PRINT'"EXPRESSING WHO MIGHT BE" 
1390 PRINT"COMPATIBLE WITH YOU THROUGH" 
1400 PRINT" ENTERED DATA...." 

1410 PRINT 

1420 PRINT"END OF хх DATE SERVICE хх" 
1430 END 


Variables and Strings 


J - Counter, total persons entered 

AM - Current amount 

М$,Е$, 0$, & E$ - Are used for print messages, depending upon the 
sex of the main user 

N$(J) - Name of person 

A(J) - Age of user 

5 & SE - Are usedfor print messages again, depending upon the sex 
of the main user 

A$(J) & G$(J) - Are used to enter necessary data 

AA - Value of AM, if additional persons are to be included 

P - Counter, for comparing entries 

R(X) - Total points, when entries match 

TR - Number of points per match 
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Explanation of the Program Lines 

Line 30 sets two variables: one is a counter; the other i 
total number of potential partners that can respond during the initial 
section of the program. 

Lines 40-60 contain strings; the contents of these will change 
according to the questions and the sex of the user. 

Lines 70-180 display the general operating instructions. 

Lines 200-310 form the main body of the program. The main 
user answers all the questions first. 

Lines 320-440 begin the second part of the program, if 
J<>AM. 


Lines 460-530 call the other users to answer all necessary 
questions. 


Lines 540-610 are used for the main (first) user if he or she has 
chosen to answer the questions about people of the opposite sex. If 
the main user decides to answer these questions, he or she should 
not be one-sided as this will defeat the purpose of the program. 

Lines 620-750 call the main user back to the computer. At this 
point, he or she will be asked if there are more persons to input data. 

Line 760 branches to lines 790-840 for data entries involving up 
to 5 more people. 

Line 770 jumps to line 890 for the processing of the data 
entered. 

Lines 890-1270 compare each piece of data to the main users 
data. If a match is made 12.5 points are added to the total score. No 
points are given if the data does not match. 

Lines 1280-1430 print the entire list of names. The percentage 
of compatability is also printed if it is not equal to 0. 
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HOW ABOUT, NAW, NOT IN TOWN 


THEN WHAT ABOUT, NAW, LEFT 

THE COUNTRY. 

SELECT 1-6? 7 

SORRY PERSON CANNOT BE LOCATED 
IN THIS FILE... 


KEY A DATE 


No the computer will not not run out and get you a date! You'll be 
able to select more easily who you want to date though. With the 
help of this program, you'l build yourself a file for your own 
personal use that no one else can pry into. If another person comes 
along to nose into your file, they will be surprised if they don't enter 
the correct code and the entire program disappears! 


Sample Run 


><><KEY A DATE><>< 


1) INSTRUCTIONS 
2) SEND DATA / RETRIEVE DATA 
3) SEE A NUMBER / ADD A NAME 
4) DELETE A NAME 
5) SEE ENTIRE LIST 
6) TERMINATE RUN 

1 


THE INSTRUCTIONS ARE QUITE STRAIGHT- 
FORWARD AND SIMPLE. ALMOST ALL 

OF US THAT ARE NOT MARRIED (AND 
SOME THAT ARE) CARRY AROUND A 
LITTLE BOOK. THIS LITTLE BOOK 
CONTAINS NAMES AND PHONE NUMBERS 
OF PERSONS OF THE OPPOSITE SEX 

WITH WHOM YOU MIGHT WANT TO 

MAKE A DATE. NOW YOUR COMPUTER 

IS ABOUT TO RELIEVE YOU OF THE 
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€ START ) 


COMMAND LIST 


<-> с INSTRUCTIONS 
N 


Y 

N 
Y 
М 


Хы Y <-> 


NAME TO DELETE 


' 
N 
©: - PRINT ENTIRE FILE 


TERMINATE 


Fig. 3-14. Flowchart for Key a Date. 
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DATA TO TAPE 


Y 
<> RETRIEVE DATA 
N 


DUMP PROGRAM 


ADD A NAME 


PRINT NAME/NUMBER 


EIU T IINE NAME NOT IN FILE 


COMPARE Y NAME DELETED 


STOP 
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CHORE OF THUMBING THROUGH 
THAT LITTLE BOOK AND GIVE ONLY 


YOU ACCESS TO ITS CONTENTS. 


STRIKE A KEY 

YOU WILL BE ALLOWED TO ENTER 
UP TO 30 NAMES AND PHONE NUMBERS 
OF THE PEOPLE THAT YOU CHOOSE 
ALONG WITH THIS YOU WILL ENTER 
A CODE NUMBER (5 DIGIT). THIS 
CODE WILL BE SAVED ON TAPE 
ALONG WITH ALL THE OTHER DATA. 
WHEN YOU WANT TO RETRIEVE THE 
DATA, YOU'LL NEED TO REMEMBER 
YOUR CODE...OR YOU'LL NEVER 
SEE THE DATA AGAIN !!! 


STRIKE A KEY 
><>< KEY A DATE ><>< 


) INSTRUCTIONS 

) SEND DATA / RETRIEVE DATA 
) SEE A NUMBER / ADD A NAME 
) DELETE A NAME 
) SEE ENTIRE LIST 
) TERMINATE RUN 


Program Listing 


10 REM PROGRAM TITLE: KEY A DATE 

20 CLEAR 1200:CL5 

30 DIM N§$(30),P5(30):N=1 

40 PRINT"5»4»€ KEY А DATE 252<" 

90 PRINT 

60 PRINT'1) INSTRUCTIONS" 

70 РНІМТ"2) SEND DATA / RETRIEVE DATA" 
80 PRINT'3) SEE A NUMBER / ADD А NAME" 
90 PRINT"4) DELETE А NAME" 

100 РНІМТ"5) SEE ENTIRE LIST" 

110 РНІМТ"6) TERMINATE RUN" 

120 INPUT I 

130 ON I GOTO 140,460,690,910,1310,1600 
140 CLS 


150 РНІМТ"ТНЕ INSTRUCTIONS ARE QUITE 
STRAIGHT-" 


160 PRINT"FORWARD AND SIMPLE. ALMOST ALL" 
170 PRINT"OF US THAT ARE NOT MARRIED C(AND' 
180 PRINT"SOME THAT АНЕ) CARRY AROUND А" 
190 PRINT"LITTLE BOOK. THIS LITTLE BOOK" 
200 PRINT"CONTAINS NAMES AND PHONE NUMBERS" 
210 PRINT'OF PERSONS OF THE OPPOSITE SEX" 
220 PRINT"WITH WHOM YOU MIGHT WANT TO" 

230 PRINT"MAKE A DATE WITH. WELL NOW YOUR" 
240 PRINT'"COMPUTER IS ABOUT TO RELIEVE YOU" 
290 PRINT"OF THE CHORE OF THUMBING THROUGH" 
260 PRINT'"THAT LITTLE BOOK AND GIVE ONLY" 
270 PRINT'"YOU ACCESS TO ITS CONTENTS." 

280 PRINT:GOSUB 290:GOTO320 

290 PRINT'"STRIKE A KEY" 

300 X$=INKEYS: IF Х5-"“ THEN 300 

310 CLS: RETURN 

320 РНІМТ"ҮОУ WILL BE ALLOWED TO ENTER" 
330 PRINT"UP TO 30 NAMES AND PHONE NUMBERS" 
340 РНІМТ"ОҒ THE PEOPLE THAT YOU CHOOSE." 
350 PRINT"ALONG WITH THIS YOU WILL ENTER" 
360 PRINT"A CODE NUMBER (5 DIGIT). THIS" 
370 PRINT"CODE WILL BE PROCESSED TO TAPE" 
380 PRINT'ALONG WITH ALL THE OTHER DATA." 
390 PRINT"VHEN YOU WANT TO RETRIEVE THE" 
400 PRINT"DATA, YOU'LL NEED TO REMEMBER" 
410 PRINT'"YOUR CODE.. OR YOU'LL NEVER" 

420 PRINT'"SEE THE DATA AGAIN !!!" 

429 ' IF PROGRAM IS LEFT AS-IS 

430 PRINT 

440 GOSUB 290 

450 GOTO 40 

460 ' SEND / RETRIVE DATA 

470 CLS 

480 INPUT"SEND ОН RETRIEVE (S/R)',;XS$ 

490 IF Х$="5" THEN 520 

500 IF X$="R" THEN 590 

510 PRINT:GOTO 480 

520 CLS 

530 РНІМТ"НЕАПҮ PLAYER (ІМ RECORD)" 

540 ІМРУТ"ТНЕМ KEY ЕМТЕН";Х5 

990 PRINT $-1,CD: PRINT #-1,N 

360 FOR I=1 TO N 

370 PRINT 4$-1,NS$CIO,P$CIO:NEXT 

580 CLS:GOTO 40 

590 ' RETRIEVE DATA 

600 CLS 

610 PRINT“ READY PLAYER (IN PLAY)" 

620 INPUT" THEN ENTER CODE";C 
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630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
855 
860 
865 
870 
880 
890 
700 
910 
920 
930 
940 
950 
960 
970 
980 
9 70 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1100 
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INPUT #-1,CD 
IF С>СП THEN МЕМ 
INPUT #-1,N 
FOR І=1 ТОМ 
INPUT %-і,М5(І),Р9 (І): МЕХТ 
CLS:GOTO 40 

ADD A NAME 
' SEE A NUMBER 
CLS:GOTO 1100 
PFRINT"** ADD A NAME **" 
IF Né»1 THEN 840 
PRINT" INPUT FULL NAME, THEN PHONE" 
PRINT"NUMBER. USE A - TO SEPARATE" 
PRINT"PARTS OF THE NUMBER ” 
PRINT"TO CANCEL, PRESS 'ENTER' ONLY" 
PRINT"FOR А МАМЕ." 
РНІМТ 
INPUT Nš (N) 
IF N§(N)="" THEN PRINT:GOTO 855 
INPUT P5 (N) 
N=N+1 
IF N»z31 THEN NzsN-1:GOTO 870 
GOTO 790 
IF CD¢>0 THEN 865 
IF М(21 THEN INPUT"S DIGIT CODE" ; GD 
GOSUB 290:CLS:GOTO 40 
PRINT 
PRINT" YOU HAVE ENTERED THE LIMIT" 
PRINT"FOR THE PROGRAM,';N; "NAMES." 
PRINT: IF PR=0 GOTO 855 ELSE 865 
' DELETE A NAME 
CLS: PRINT'** DELETE A NAME wx" 
PRINT'"TO DELETE А NAME AND NUMBER," 
PRINT"INPUT THE ENTIRE NAME OF THE" 
PRINT"PERSON, AS IT APPEARS IN THE" 
PRINT"FILE. WHO IS THE PERSON YOU" 
ІМРУТ"МАМТ TO REMOVE FROM LIST";NS 
FOR I=1 TO N 
IF М5-М6(І) THEN 1060 
NEXT.PRINT 
IF Р-0 THEN 1040 
PRINT N$;" REMOVED FROM FILE." 
P-0:GOTO 900 
PRINT N$;" COULD NOT BE LOCATED." 
GOTO 1030 
Ns(I)=""  P$(I)=" 
P=1:GOSUB 1460:IF N=0 N=1 
PRINT:GOTO 1010 
' SEE A NAME? 


1110 INPUT"SEE A NUMBER (Y/N2";X$ 

1120 IF X$="N" THEN CLS:GOTO 720 

1130 PRINT: IF N=1 AND N$(NO-"" THEN 1550 
1140 PRINT" INPUT PERSON'S LAST NAME ONLY"; 
1190 INPUT L5 

1160 L=1 

1170 LE=LEN(N$(L)) 

1180 FOR i=LE TO 1 STEP-1:IF І-0 THEN 1280 
1185 IF MIDS(NS$(L),1,1)=" " AND D=0 THEN 1420 
1190 NAS$=MIDS(N$¢(L),1,1)+NA$ 

1200 NEXT 

1210 PRINT NAS ; 

1220 INPUT" (Y/N)" ; X$ 

1230 IF X$="¥" THEN 1260 

1240 IF X$="N" THEN 1280 

1250 PRINT: GOTO 1210 


1260 РНІМТ"ТНЕ NUMBER: "SPS$(L):NA§="" 
1270 D=0:PRINT:GOSUB 290:GOTO 40 
1280 NA$="":L=L+1 


1290 IF L>=N THEN N$zL$:GOTO 1040 
1300 GOTO 1170 

1310 ‘ ENTIRE FILE 

1320 L=1:A=1:GL8S 

1330 PRINT"NAME / NUMBER" 

1340 PRINT NS(L),PSC(L) 

1350 LzL*1:;AzA-«1 

1360 IF L>=N THEN 1390 

1370 IF A>=8 THEN Az=1:PRINT:GOSUB 290:L=L-i 
1380 GOTO 1340 

1390 PRINT 

1400 GOSUB 290 

1410 GOTO 40 

1420 ' RIGHT МАМЕ 

1430 IF МА5%5>212% THEN 1280 

1440 D=1 

1450 GOTO 1190 

1460 ' RE-SORT FILE 

1470 FOR Ісі TO N 

1480 IF М5ХІ)-"" THEN 1500 

1490 NEXT: RETURN 

1900 J=I+1 

1510 N§¢Td=N$¢5):P$ CT) 2р5 (J) 

1520 І=+1і:Ј=Ј+1 

1530 IF JON THEN N=N-1: RETURN 
1540 GOTO 1510 

1550 ' NONE IN FILE 

1960 PR=1 

1570 PRINT"** NO NAMES IN FILE хх" 
1580 GOTO 900 
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1600 ' TERMINATE 

1610 PRINT 

1620 PRINT"END OF PROGRAM" 
1630 END 


Variables and Strings 


МӘ) - Names in the file 

P$(D) - Phone numbers in the file 

N - Counter, number in file 

X$ - General input string 

CD - 5 digit code number 

P - Either equal to 0 or 1 for deleting a name 

D - Either equal to 0 or 1 for searching for a particular name 
L & A - Counters for printing all names in the current list 
PR - Name not in file (if equal to 1) 


Explanation of the Program Lines 


Line 20 clears 1200 bytes of memory for string storage. 

Line 30 dimensions the N$ and P$, arrays for the names and 
phone numbers. 

Lines 40-120 display the command list. 

Line 130 sends control to the appropriate line depending on the 
value input for I. 

Lines 140-440 display the general instructions. 

Lines 460-680 either send data to the tape player or retrieve it 
from the tape player. If the program is left as-is the user must enter 
the 5 digit code that was placed on the tape in order to retrieve data. 
If the user fails to enter the correct code, C< CD, the entire 
program in memory will be ‘dumped’. 

Lines 690-900 and Lines 1100-1300 let the user either see a 
phone number or add a name. With the program as-is, up to 30 
names and phone numbers can be entered. 

Lines 910-1080 allow the user to delete a name and number 
from the current file. 

Lines 1310-1410 display the entire file that is currently in 
memory. 

Lines 1420-1450 test for a correct name when the user wants to 
locate a certain number only last names are used. 

Lines 1460-1540 re-sorts the entire file when a name has been 
deleted. 

Lines 1550-1580 display a message if there are no names in the 


e. 
Lines 1600-1630 terminate the program. 
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Games That Span the Ages 


Squares is a game like checkers, but you can move in any direction 
you want. Challenge a friend or the computer. 

Hold Time allows you to stop the computer's piece while you 
shoot it. It's not that easy though: your lasers must be at the right 
location at the right moment. 

Dangerous Affair challenges even the best would-be spy by 
making you work with coded messages and incompetent agents. 

Pennies or Dollars offers you the chance to get rich quick or 
to become poor in just as short a time. 

Be Prepared (Part D) tests your dexterity and your luck. 
You'll need both to successfully dock your spaceship. 

Rain of Terror is a test of your courage. How long do you dare 
remain at the spot where the bomb will hit? 

Knights places you in medieval times. The king is depending 
on you to destroy the outlaws without killing their hostages. 
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SQUARES 


This program will give you all of the action that checkers never 
attempted to have! Without having to get “crowned” you can move 
wherever you wish on the playing board, just so long as you do it to 
win! If 4 people are playing, the victor of the first game can play the 
victor of the second game. Of course, you can play by yourself 
against the computer. 


Sample Run 
SEE INSTRUCTIONS? YES 


SQUARES 


HOW MANY TO PLAY (1-4)? 2 

JUST LIKE CHECKERS, YOU WILL MOVE 
FROM SQUARE TO SQUARE TRYING TO 
OUTWIT YOUR OPPONENT AND JUMP 
THEIR PIECE. BUT, UNLIKE CHECKERS, 
EACH WILL ONLY HAVE 5 PLAYING 
PIECES. YOU CAN MOVE FORWARD OR 
BACKWARD, AS IF ALL PIECES ARE 
KINGS. THE VICTOR WILL BE THE 
PLAYER WITH PLAYING PIECES 
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START 


| Y 


PRINT 
INSTRUCTIONS 


NUMBER OF 
PLAYERS 
| : 
N 
INPUT INITIALS 
OF YY PLAYERS 
SET GHAPHICS 
PLAYING FIELD 
GET MOVE 
FROM PLAYER 


MORE 
PLAYERS 


STOP 


GET А 
JUMP MOVE 
OUTPUT 
MESSAGE 


Flowchart for Squares. 
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J 


um 
.. 


за 


PETTITTE АЧЫУ ЕЕ RNNNNNNNNN Ubi 


REMAINING. TO THROW IN THE TOWEL 
(GIVE UP) JUST ENTER A 0 (ZERO) WHEN 
YOU ARE ASKED 'FROM? 

PRESS ENTER? 

IF YOU ARE PLAYING BY YOURSELF, 


IF THREE ARE PLAYING, ONE WILL 
BE CHOSEN TO PLAY THE WINNER OF 


GAME. REMEMBER, MOVE ONE SQUARE AT A 
TIME UNLESS YOU ARE JUMPING. 


PRESS ENTER TO START? 


| NEED THE INITIALS OF THE 2 
PLAYERS? AM 
?? AJ 


Program Listing 


10 REM PROGRAM TITLE: SQUARES 

20 CLS:RANDOM 

30 CLEAR 500 

40 DIM X(40),Y(40),W(40) 

90 QQz-?9? 

60 FF-1 

70 INPUT"SEE INSTRUCTIONS (Y/N)",;AS 

80 IF Аб-"Ү" ОН A&S="YES" THEN 120 

90 IF Аб-"Ы" OR AS="NO" THEN TNz1:GOTO 150 
100 PRINT"TRY А SOLID ANSWER..." 

110 PRINT:GOTO 70 

120 PRINT CHR$(1432;CHR$(143)7; 

130 PRINT" S QU A R E 5 ";CHR$(143); 

140 PRINT CHR$(143) 

150 PRINT 

160 PRINT"HOW MANY TO PLAY (1-4)"; 

170 INPUT YY 

180 IF ҮҮ‹1 OR ҮҮ24 THEN 150 

190 IF YYs1 THEN GLs1 

200 REM INSTRUCTIONS NOT NEEDED 

210 IF ТМ=1 THEN PRINT:GOTO 510 

220 REM INSTRUCTIONS 

240 PRINT'"JUST LIKE CHECKERS, YOU WILL MOVE" 
290 PRINT" FROM SQUARE TO SQUARE TRYING TO" 
260 PRINT'"OUTWIT YOUR OPPONENT AND JUMP" 
270 PRINT'THEIR PIECE. BUT, UNLIKE CHECKERS,” 
280 PRINT' EACH WILE ONLY HAVE 5 PLAYING" 
290 PRINT'"PIECES. YOU CAN MOVE FORWARD OR" 
300 PRINT'"BACKWARD, AS IF ALL PIECES ARE" 
310 PRINT"KINGS. THE VICTOR WILL BE THE" 
320 PRINT' PLAYER WITH PLAYING PIECES" 

330 PRINT REMAINING. TO THROW IN THE TOWEL" 
340 PRINT" (GIVE UP) JUST ENTER A 0 
(ZERO) WHEN" 
390 PRINT" YOU ARE ASKED 'FROM ?'" 
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360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
300 
910 
220 
530 
540 
550 
560 
570 
580 
290 
600 
610 
759 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
970 
980 


PRINT 

INPUT"PRESS ENTER"; ХХ 

CLS 

PRINT"IF YOU ARE PLAYING BY YOURSELF," 
PRINT"YOU WILL PLAY AGAINST THE COMPUTER." 
PRINT"IF THREE ARE PLAYING, ONE WILL" 
PRINT"BE CHOSEN TO PLAY THE WINNER ОҒ" 
PRINT"THE FIRST ROUND. IF FOUR ARE PLAY ING" 
PRINT'"THE COMPUTER WILLCHOOSE OPPONENTS" 
PRINT"AND THE WINNER OF ONE GAME САМ" 
PRINT"PLAY THE WINNER OF THE FOLLOWING" 
PRINT"GAME.REMEMBER,MOVE ONE SQUARE AT А" 
PRINT"TIME UNLESS YOU ARE JUMPING." 
PRINT 

INPUT" PRESS ENTER TO START"; XK 

CLS 

IF TN=1 AND ҮҮ=1 THEN 540 

IF ҮҮ›1 GOTO 750 

AA=RND(2) 

IF АА=1 THEN RR=1:GOTO 570 

RR=3:GOTO 600 

PRINT" YOU WILL PLAY FIRST..." 

PRINT"YOU HAVE THE SOLID PIECES." 
PRINT:GOTO 610 

PRINT"I WILL PLAY FIRST..." 

PRINT: IF Z«»0 THEN 1395 

MZ = 0 

PRINT"I NEED THE INITIALS OF THE" ; YY 
PRINT"PLAYERS";:FOR I=1 TO YY 

INPUT INS(IO:NEXT 

IF ҮҮ=1 THEN P$(1)=IN$(1):GOTO 900 

IF YY=2 THEN 1200 

REM CHOOSE PLAYERS 

REM 3 OR 4 PLAYING 

A=1 

AA=RND(Y):IF AA=A THEN 840 

Jz1:FOR I=2 TO YY 

IF I=AA THEN 880 

АЈ) =1:Ј=Јј+і 

NEXT 

А(Ј)=А:А(Ј+1) = АА: СОТО 1200 

PRINT"WE WILL NOW BEGIN. REMEMBER" 
PRINT INSC(YY);", YOU ARE PLAYING" 
PRINT"AGAINST ME, YOUR COMPUTER." 

GOSUB 10000:CL5 

GOTO 1400 

PRINT"THERE ARE THREE OF YOU PLAYING." 
PRINT"I WILL NOW CHOOSE TWO PEOPLE TO" 
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990 PRINT"PLAY ONE ANOTHER. THE PERSON" 


1000 
1010 
1020 
1090 
1100 
1110 
1120 
1130 
1140 
1200 
1210 
1215 
1220 
1230 
1235 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1350 
1335 
1340 
1345 
1350 
1360 
1370 
1380 
1390 
1393 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
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PRINT"REMAINING VILL PLAY THE" 
РНІМТ"МІММЕН OF THE FIRST ROUND..." 
PRINT 

GOSUB 10000 PRINT 

PRINT Р5(1)," YOU WILL PLAY AGAINST" 
PRINT Р5(2);". AFTER THESE HAVE PLAYED" 
PRINT"YOU WILL PLAY THE WINNER "; 
PRINT P$(3);"  " 

GOTO 1310 

REM FOUR PLAYERS 

FOR Isi TO YY 

IF YY-2 THEN PSCIOZzINS$CIO:GOTO 1230 
PS$CI2ZINS(CA(CI2D 

NEXT IF ҮҮ-2 THEN 1310 

IF YY-3 THEN 970 

PRINT P$(12;" YOU WILL PLAY ";P$(2) 
PRINT"IN THE FIRST ROUND. ",;P$(3) 
PRINT"WILL PLAY ";P$(425;" IN THE" 
PRINT"SECOND FINALLY, THE WINNER" 
PRINT’ FROM EACH SET CAN PLAY EACH" 
PRINT OTHER." :GOSUB 10000 

PRINT 

REM 2 PLAYERS 

A=RND(2Z) 

AA=A~1:IF AA=0 THEN AA=2 

IF A=1 THEN 1345 
PS(1)=PS (AA): Р$ (2) =Р5 (А): СОТО 1350 
Р (1) =Р5(А) : Р5 (2) = Р5 (АА) 

RR=A:WE=YY 

PRINT PS$(RR2;" YOU WILL PLAY FIRST." 
PRINT" YOU HAVE THE "; 

IF RR=2 PRINT'STEPPED PIECES" :GOTO 1395 
PRINT" SOLID PIECES" 

GOSUB 10000:CLS 

REM PLAYING BOARD 

FOR X-10 TO 115 

SET(X,1>: SET(K,2) 

SET(X,39): SET(X,40) NEXT 

FOR X=3 TO 38 

SET(10,Xy:SET(11 , X) 
SET(114,X):SET(115,X) NEXT 
L=116:P=70:Pi=P+128 

FOR І-і TO 30 

PRINT@P,1; :P=P+10 

IF P>=L THEN P=P1:Pi=P1+128:L=L+128 
NEXT: TP=5:BP=53:REM PIECES 
K=1li:J=33:Y=3:L=¥+é6 


1930 FOR XsK TO J 

1540 SET(X,YO:SET(X,Y*«120: SET(OX,Y 42) 

1550 SET(X,Y+3) SETOX, ¥+4) : SET(X,Y45) 
1960 NEXT 

1570 ҮзҮғ12 

1580 IF Ү>-39 THEN 1600 

1990 GOTO 1530 

1600 KsX.JzK«419?:YzL:LzY-6 

1610 IF Ү--3 THEN Y=-L 

1620 IF Ү--9 THEN Ү=- (1/3) -2 

1630 IF Y=-15 THEN 1650 

1640 GOTO 1530 

1650 REM SET PIECES (TOP) 

1660 Х=35:Ү=7: Је? :М= 4 

1670 FOR І-Х TO Х+1& 

1680 SET(I,YO:SET(I-«40,Y) 

1690 IF T-i THEN SET(I«80,Y)2:HMz10 

1700 МЕХТ:ІЕ Tei THEN GOSUB 1900:GOTO 1720 
1710 GOSUB 1900:X=15:¥=13:T=1:GOTO 1670 
1720 REM SET PIECES (BOTTOM? 

1730 GOSUB 1960: Х=35:; Ү=Ү+18:Т=0:М= 24 

1740 FOR І-Х TO X+ié STEP 2 

1750 SET(OI,YO:SET(I«40,Y?) 

1760 IF T=1 THEN SET¢(14+80,Y):M=30 

1770 NEXT: IF T=1 THEN GOSUB 1900:GOTO 1790 
1780 GOSUB 1900: :X=15:Y=#VY¥+6:T=1:GOTO 1740 
1790 REM SET START LOCATIONS 

1800 GOSUB 2030:J=2:FOR І-2 TO 10 STEP 2 
1810 WO J)=1:WCJ410)=-99: JzJ4 2: NEXT: J=22 
1820 FOR I=22 TO 30 STEP 2 

1830 WOJ)=99:J=J+2:NEXT:GOTO 2100 

1840 GOSUH 10060:GOSUB 10080:PRINTG?01,, 
1850 INPUT"FROM SQUARE";F:IF F>30 THEN 1840 
1855 IF F=0 AND RR=2 THEN RRz1:GOTO 4100 
1856 IF Ғ-0 AND RR=1 THEN RR=2:GOTO 4100 
1860 GOSUB 10060:GOSUB 10080: PRINTG?00,; 
1870 INPUT" TO SQUARE";T:IF T»30 THEN 1860 
1880 RETURN 

1900 REM PIECE LOCATION 

1910 X(J)=XK:Y(J)=Y 

1920 J=J+2 

1930 IF JzM THEN 1910 

1940 IF J<=M AND T=1 THEN 1910 

1950 RETURN 

1960 REM PIECE LOCATION (MIDDLE> 

1970 L=46:D=20:M=14 

1980 X(J)=X+D:Y(J)=Y+L 

1990 J=J+2 
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2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2104 
2105 
2108 
2110 
2120 
2130 
2140 
2145 
2150 
2160 
2165 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2235 
2240 
2250 
2260 
2270 


2275 
2280 
2290 
2295 


2300 
2310 
2320 
2400 
2405 
2410 
2420 
2430 
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IF J=M THEN 1980 ELSE T=1:M=20 

IF J<=M THEN D=0:L=12:GOTO 1980 
RETURN 

REM LOCATION PLUS AMOUNTS 

FOR I=8 TO 28 STEP 10:X(I)=X(I)+40 
NEXT:FOR I=4 TO 24 STEP 10 
X(I)=X(I)+40 :NEXT 

FOR I=10 TO 30 STEP 10 
XCIO)-XCIO480:NEXT 

RETURN 

IF RR=3 THEN 2900 

GOSUB 1840:IF RR=2 THEN 2400 

IF М(Ғ)-99 AND RR=1 THEN 4500 

0-99 

IF wt(T)<¢>-99 THEN 12000 

IF ABS(F-T)=6 THEN MX=1:GOTO 2145 
IF ABS(F-T2Oz12 THEN MX=2:A=6:GOTO 2145 
GOTO 2300 

IF W(T)=1 THEN 12000 

IF FCT THEN 2165 

А = ~ А 

IF MX-1 THEN 2190 

IF МХ-2 AND W(F«A?--99 THEN 12000 
IF МХ=4 AND W(F+A)=-99 THEN 12000 
IF RR=2 OR RR=3 THEN J=2 ELSE J=1 
FOR I=X(F) TO Х(Е) +16 STEP J 
RESET(I,Y(F)): NEXT 

FOR I=X(T) TO X(T)+16 STEP J 
SETC(I,Y(T)):NEXT 

IF RR=2 OR RR=3 THEN 2500 

IF MX=2 OR MX=4 THEN 2270 

WOT) = МЕ) WCF) =-99 

GOTO 2280 

WOT) = МОР) УСЕ) =-99 :WCF+A) =У(Е) : GOTO 
2700 

F=T:MX=0:KL=0:GOSUB 1860:ZC=1:GOTO 3120 
REM ALTERNATE PLAYER 
Fe0:T=0:MX=0:A=0:Q=1 

IF WE>=2 THEN RR=2:GOTO 2100 ELSE RR=3: 
GOTO 2100 

IF ABS(F-T)=4 THEN MX=3:GOTO 2145 
IF ABS(F~T)=8 THEN MX=4:A=4:GOTO 2145 
GOTO 12000 

REM OPPONENT (STEPPED SQUARES) 

IF W(F)=1 AND RR=2 THEN 4500 

IF W(T)<>-99 THEN 12000 

IF ABS(F-T)=6 THEN MX=5:GOTO 2450 
IF АВЅ‹Е-Т) =4 THEN MX=6:GOTO 2450 


2440 
2450 
2460 
2470 
2480 
2900 
2910 
2515 
2520 
2530 
2540 
2550 
2560 
2565 


2570 
2580 
2990 
2600 
2610 
2620 
2630 
2635 
2640 


2650 
2660 


2670 
2700 
2710 
2720 
27285 
2730 
2740 
2750 
2760 
2770 
2900 
2905 
2910 
2920 
2930 
2935 
2940 


2950 


СОТО 2580 

IF W(T)z99? THEN 12000 

IF ЕТ THEN 2190 

REM RESET SQUARE 

GOTO 2190 

REM INTERCHANGE SQUARES (STEPPED) 
WOT) = МСЕ) МЕ) =-99 

IF КК=1 THEN 2540 

IF МХ=7 OR МХ=8 THEN 2540 

КК= 0: МХ= 0: А= 0: НК= 1: ММ=0: СОТО 2100 
IF FCT THEN AÀz-A.IF KK-1 THEN 2560 
W(F-A)z-99 

GOTO 2700 

IF KK=1 THEN FeT: IF RR=2 THEN GOSUB 
1860:Z2C=1:GOTO 3120 ELSE I=F:GOTO 2925 
GOTO 2530 

IF ABS(F-T)=8 THEN MX=7:GOTO 2610 
IF АВ5‹Е-Т) =12 THEN MX=8:GOTO 2610 
GOTO 2100 

IF WC(T)=99 THEN 12000 

IF MX-7 THEN A=-4:GOTO 2635 

А=-6: СОТО 2190 

IF RR=3 THEN 2190 

IF Ғ(216 AND Ғ(218 AND М‹Е+А) =-99 
THEN 2660 

GOTO 2190 

IF FC>20 AND F(»22 AND W(F-*A»?z-99 
THEN 12000 

GOTO 2190 

REM RESET SQUARE (JUMP) 

FOR [=X(F+A) TO X(F«*A2-*16 
RESETC(I,Y¢(F+A)) : NEXT 

МЕ) =-99 -WCF+A)=WC(F):GOTO 4000 
REM MORE JUMPS ? 

REM TEST FORWARD AREAS 

І=Т:А= 0 

IF RR=3 THEN ММ=1 

GOTO 2935 

GOSUB 10060:REM COMPUTERS PLAY 
МС=0: МХ= 0: EExzQ:0-1:GOSUB 10080 
FOR 1-2 TO 30 STEP 2 

IF М1) =99 THEN 2935 

МЕХТ: СОТО 3800 

IF 1) =24 THEN 2950 

IF W(I+é)=Q AND У(1+12) =0а THEN 
A=-12:GOTO 3100 

IF W(I+4)=Q AND W(I+8)=QQ THEN 
А=-8: СОТО 3100 
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2995 IF I(-10 THEN 2975 

2960 IF W(I-4)=Q AND W(I-82zQQ THEN 
A=8:GOTO 3100 

2970 IF W(I-65»zQ AND W(I-12)2)zQQ THEN 
A-12:GOTO 3100 

2975 IF RRz1 THEN 2290 

2980 IF RR=2 THEN 2530 

2990 IF MM=1 THEN MM=0:GOTO 2530 

3000 As0:GOTO 3700 

3100 REM MOVE FEASABLE 

3105 IF НН-і THEN KLz1:GOTO 3260 

3110 IF RR=2 THEN KKz1:GOTO 3260 

3111 IF ММ-1 THEN KK=1 

3115 FeI:T=I-A:TT=T-A: IF ТТ<-0 TT=0 

3120 IF F=2 AND Т-10 THEN 3400 

3130 IF F=4 AND Т-16 THEN 3400 

3135 IF ZCs1 THEN 3150 

3140 IF F=6 THEN 3250 

3150 IF Е-10 AND Т-16 THEN 3400 

3152 IF ZCs1 THEN 3160 

3195 IF Ғ-10 THEN 3260 

3160 IF F=12 AND Tz20 THEN 3400 

3162 IF F=14 AND T=26 THEN 3400 

3165 IF Ғ-14 AND T=6 THEN II-1:GOTO 3400 

3166 IF ZC«s1 THEN 3185 

3170 IF F=i4 THEN 3270 

3180 IF Е-16 THEN 3310 

3185 IF Е=16 AND T=22 THEN 3400 

3186 IF Ғ-16 AND T=22 THEN 3400 

3188 IF ZCs1 THEN 3200 

3190 IF F=20 THEN 3280 

3200 IF Е-22 AND Т=10 THEN 3400 

3201 IF F=22 AND T=16 THEN 3400 

3202 IF F=22 AND T=30 THEN 3400 

3205 IF Ғ-26 AND T=14 THEN 3400 

3210 IF F-24 AND Т-16 THEN 3400 

3211 IF Ғ-30 AND Т-22 THEN 3400 

3215 IF F=30 AND Т-16 THEN 3400 ELSE IF 2С-1 


THEN 3500 
3220 IF Ғ-26 THEN 3290 


3230 IF Ғ-30 THEN 3300 

3240 IF F=22 AND T=30 THEN 3400 ELSE 3500 
3250 IF Т-10 OR T=14 THEN 3400 ELSE 3500 
3260 IF Т-2 OR Т-% OR T=22 OR Т-24 THEN 3400 


ELSE 3500 

3270 IF Т-6 OR T=2é THEN II-z1:GOTO 3400 
ELSE 3500 

3280 IF T=12 OR T-16 OR T=26 THEN 3400 
ELSE 3500 
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3290 
3300 
3310 
3320 
3400 
3410 
3420 
3430 
3440 
3500 
3510 
3515 
3520 
3525 
3530 
3700 
3710 
3715 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3855 
3860 
3870 
3875 
3880 
3890 
3900 
4000 
4010 
4020 
4030 
4040 
4050 
4050 
4070 
4080 


IF T=14 OR T=20 THEN 3400 ELSE 3500 
IF T=22 OR T=26 THEN 3400 ELSE 3500 
IF T=4 OR T=10 OR T=24 THEN 3400 
GOTO 3500 

REM WHICH TO WHERE 

IF RR=1 THEN 2290 

IF RRz2 THEN 2530 

IF IIz1 THEN IIz0:GOTO 2530 

GOTO 3830 

REM CONT. JUMP 

IF RR=1 AND ZC=0 THEN 2275 

IF RRzi AND 2Сс-1 THEN ZC-0:GOTO 2108 
IF НН-2 AND ZC=0 THEN 2565 

IF RR=2 AND ZC«si THEN ZCz0:GOTO 2420 
IF RR=3 THEN 3700 

REM CHECK AHEAD / RE-TEST (COMPUTER) 
IF W(F-A2(»-99 AND KK=0 THEN 2930 
IF А-8 OR А--8 THEN MGz1 

IF А-12 OR А=-12 THEN HG=1 

IF MG=1 THEN MG=0:KK=0:GOTO 2410 

IF I>=8 AND KK=0 AND EE=0 THEN 3780 
МХ= МХ +1 

IF МХ ‹=1і THEN 2910 

СОТО 2410 

IF ВР) =4 AND W(TTO-1 THEN 2925 

GOTO 3750 

REM ALTERNATE MOVES 

AD=1:MM=2:FOR І-30 TO 2 STEP-2 

IF WC1I)=99 THEN EE=1:GOTO 3855 

IF KK=1 THEN 2410 ELSE NEXT 
RR=0:GOTO 4110 
KK-0:Fz0:Tz0:RRz1:A-z0:GOTO 2100 

IF I<=4 THEN 3875 

IF W(I-452zQQ THEN A=4:GOTO 3100 

IF W(I-é)=QQ THEN A=6:GOTO 3100 

IF I>=26 THEN 3900 

IF W(I+4)=QQ THEN A-z-4:GOTO 3100 

IF WC1I+6)=2QQ THEN A--6:GOTO 3100 
GOTO 3830 

REM GAME COMPLETED ? 

IF RR=1 THEN 4040 

IF RRz2 OR RR=3 THEN 4070 

GOTO 2730 

ВР-ВР-1 

IF ВР<-0 THEN 4100 

СОТО 2730 

ТР-ТР-і 

IF ТР<=0 THEN 4100 
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4090 GOTO 2?30 

4100 REM COMPLETE 

4110 GOSUB 10030 

4120 IF RR=2 THEN 4190 
4130 IF RR=3 THEN 4190 
4140 IF GL=1 THEN 4170 


4150 PRINT"YOU LOSE..... ";P$CA2) 

4160 PSCFF)=P$(1):GOTO 4210 

4170 PRINT"I HAVE LOST...":REM COMPUTER 
4180 GOTO 4210 

4190 PRINT"YOU HAVE LOST...";P$(61) 


4200 P$(FF)=P$ (2) 

4210 REM CONTINUE / END 

4220 IF МЕ<-2 THEN 4420 

4230 НЕМ 3 ОН 4 PLAYERS 

4240 WNS(FF)=P$(FF):FF=FF+1 

4285 IF AG=1 THEN 4410 

4250 IF FF=3 THEN 4400 

4260 IF WE=3 THEN P$(2)=P5(3):GOTO 4300 
4270 P$C1)=P$(3):P$(2)=P$5(4) 

4280 PRINT P$(120;" YOU WILL NOW PLAY ",;P$(2) 
4290 GOTO 1310 

4300 PRINT P$(FF2;" YOU WILL NOW PLAY '; 
4310 PRINT P$(1) 

4320 GOTO 1310 

4400 REM FINAL 

4405 IF МЕ-4 THEN 4450 

4410 PRINT WN$(FF-10;" IS THE GRAND WINNER !!" 
4420 PRINT 

4430 PRINT"END OF PROGRAM RUN..." 

4440 END 

4450 AQ=1:P$(1)=WN$ (1): P$ (2)=WNS$ (2) 

4460 PRINT P$(120;" YOU WILL PLAY ";Р$ (2) 
4470 PRINT'TO DETERMINE THE FINAL WINNER." 
4480 GOTO 1310 

4500 REM NOT CORRECT PLAYER 

4910 GOSUB 10030 

4520 PRINT"IT IS NOT YOUR PLAY !!" 

4530 GOSUB 10050 

4540 GOTO 2100 

10000 REM TIME LOOP 

10010 FOR Q=1 TO 5000:МЕХТ 

10020 RETURN 

10030 PRINT@?01, ; 

10040 RETURN 

10050 FOR Ui TO 1000:NEXT 

10060 PRINT@901,STRING$ (50,32) 

10070 IF T=0 RETURN 
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10080 PRINTG9?65,"PLAYER. ..";Р (ЕН); 
10085 IF RR=3 РНІМТ"СОМРУТЕН"; 
10090 RETURN 

11000 GOSUB 10030 

11005 IF 2С-і THEN 11030 

11010 PRINT"** CANNOT RESPOND хх" 
11020 GOSUB 10050 

11030 F=0:T=0:RETURN 

12000 REM ERROR MESSAGE 

12010 IF RR=3 THEN 2905 

12020 GOSUB 11000 

12030 GOTO 2104 


Variables and Strings 


X,Y & W - Subscripted for piece set and reset locations, and the 
contents of squares W(I) 

QQ - Used to test ahead to determine the status of a square. 

FF - Used for player, if more than one is playing 

YY - Number of players 

IN - Used to skip the instructions 

AA & A - Used for random selection of player's turn 

RR - Used for player: RR—1is for solid pieces, апа RR=2 is for 
stepped playing pieces 

IN$(D - Player's initials 

P$(D - Player's initials, after random selection of first player 

WZ - Total number of players 

L,P & P1- Usedfor setting up the game board, along with X, Y,J & K 

F & T - For inputs of numbers of the squares to move from and to 

MX - Status of playing piece, to test if legal 

J - Used again for stepped pieces if RR —2 or RR=3 

KL & ZC - Used to determine if a jump is legal 

KK & ZC - Same as above for stepped pieces 

A - For movement of piece forward or backward 

EE, MG & AD - For alternate move (if possible) by computer 

TP - Number of squares at the top of the field 

BP - Number of squares at the bottom of the field 

GL - Computer playing 

WNS$S(FF) - Used if there are Зог 4 players to determine the winner 

Q & U - For time loop (pause) 


Explanation of Program Lines 


Line 40 dimensions the X, Y, апа W arrays for proper square 
and piece locations. 
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Line 50 sets the variable QQ to —99 for piece identification for 
a possible jump. 

Line 60 sets the variables FF to 1. FF is used to determine the 
final winner when there are more than 2 players. 

Lines 70-150 ask if instructions are needed. If they are not TN 
will equal 1 and the instructions will be skipped. 

Lines 160-190 ask for the number of player's amount. If there is 
only 1, GL will equal 1, and the computer will play against the user. 

Lines 200-210 determine whether or not the instructions are 
needed. If they are not, the program branches to line 510. 

Lines 220-510 display the instructions for play 

Line 520 tests the value of YY (number of players). If YY is 
equal to 1, program branches to line 540. 

Line 530 sends program control to the appropriate lines for 2 or 
more players. 

Lines 540-600 determine who will play first, the user or the 
computer. 

Lines 610-780 let user enter each player's initials. 

Lines 790-800 send program control to the appropriate lines if 
only 1 or 2 are playing. 

Lines 810-890 randomly select players (3 or 4) to determine 
who will play against whom. 

Lines 900-940 display a message for one player. 

Lines 970-1140 display a message indicating who will play 
against whom when 3 people are playing. 

Lines 1200-1300 display a message indicating who will play 
against whom when 4 people are playing. 

Lines 1310-1395 select who will play first and which type of 
playing piece he or she will have. 

Lines 1400-1830 set the graphics for the playing field (board) 
and all of the pieces. They determine the number of pieces and the 
value of each place: is assigned to the top pieces, 99 to the bottom 
pieces, and —99 to blanks. 

Lines 1840-1880, accept player inputs in response to the 
FROM and TO prompts. If FROM (F) is equal to 0 (zero), the player 
has just thrown in the towel, and the program will branch to either 
the termination routine or next player routine. 

Lines 1900-2090 establish the pieces and their locations on the 
playing board. 

Lines 2100-2270 along with lines 2300-2320 are used to move 
the solid pieces. 

Lines 2190-2240 are also used to move the stepped pieces. 
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Lines 2250-2270 are used to redefine the contents of the 
squares that were involved in the FROM and TO movement. 

Line 2275 are used for a possible double (or more) jump. 

Lines 2280-2295 allow the next player or the computer to input 
moves if RR = 3. 

Lines 2400-2660 work much the same as lines 2100-2270 
above, except these are for the stepped pieces. 

Lines 2700-2725 reset any square that has been jumped and 
delete one piece from the player that was jumped. Lines 4000-4090 
are used to determine whether or not the game is over. 

Lines 2730-2770 are used to determine if another jump might 
be possible. For this the program branches to line 2935-3530. If any 
of the conditions are met, the user will be allowed another jump. 

Lines 2900-3530 are for the computer's pieces as well. These 
lines will determine if the computer can jump or just move. If no 
jumps can be made, lines 3700-3900 are used for movement from 
one square to another. If none of the conditions are met following 
the for-next loop beginning at line 3810 and ending at line 3830, the 
computer will terminate the program at line 3340. 

Lines 4100-4480 determine who won and who will play against 
whom in the next game. If all conditions are met, the grand winner is 
printed and the program terminated. 

Lines 4500-4540 prints message if a player 15 trying to move 
someone's pieces other than his or her own. 

Lines 10000-12030 contain the necessary time loops, the turn 
determination routine, message CANNOT RESPOND if an illegal 
move is entered. 
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EE 0.9. 221. 


HOLD TIME 


This game enables you to make all computer movement stop while 
you try and destroy the computer's piece. All your decisions will 
have to be exact if you plan on doing this. To destroy the computer's 
piece, your lasers must be at the right place at the right time. The 
amount of time you can hold the computer's piece in one location is 
20 seconds. А long time you say? Run the program and see for 
yourself. Note that the IBM version of this program is included in 
Appendix A, and the Apple version in Appendix B. Remember to 
use the proper value for SS in line 295. Refer to page 3. 


Sample Run 


HOLD TIME... 
INSTRUCTIONS? YES 


HOLD TIME...A MATTER OF HIGH OR 
LOW POINT TOTALS. THE COMPUTER 5 
CRAFT WILL BLIP ALL AROUND YOUR 
VIDEO, DOWN THE LEFT AND RIGHT 
SIDES WILL ВЕ ASTERISKS. THESE 
ARE YOUR LASERS. AT THE INSTANT 
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X XX X X X X X X XX X X X X 
HOLD TIME = 20 


<X> 


K * x KK x< 
KKK K K xK 


x TOTAL POINTS:0 TIME LAPSE: 30 x 
XXX XXXXXXXXX XX X X X X XX 


YOU THINK THE CRAFT IS IN LINE 

WITH THESE, HIT THE ‘CLEAR’ KEY. 
YOUR LASERS WILL START MOVING 
TOWARD THE CENTER, THE COMPUTER 
CRAFT WILL ALSO CONTINUE TO MOVE 


PRESS ENTER? 


YOU CAN 'HOLD' THE COMPUTERS: 

CRAFT FROM MOVING FOR AN AMOUNT 

OF TIME, ROUGHLY 20 SECONDS. 

YOUR SCORE WILL RANGE FROM 1500 TO 400, DEPEND- 
ING ON WHERE YOU 

DESTROY THE CRAFT (TOP OR BOTTOM 

OF THE VIDEO). THE TIME LIMIT FOR THE 

ENTIRE RUN WILL BE JUST ABOUT 

FIVE MINUTES. THIS WILL BE NOTED 

AT THE LOWER RIGHT OF YOUR VIDEO. 

THE COUNT STARTS AT 30. OH YES, TO 'HOLD' THE COM- 
PUTERS' 

CRAFT, HOLD DOWN THE 'ENTER' 


PRESS ENTER TO BEGIN? 
Program Listing 


100 REM PROGRAM TITLE: HOLD TIME 
110 CLS 


158 


119 CLEAR 350 

120 RANDOM 

125 PRINT"HOLD TIME..." 

130 INPUT" INSTRUCTIONS (Y/N2";Z$ 

135 IF Z$="N" THEN CLS:GOTO 290 

140 PRINT 

145 PRINT"HOLD TIME...A MATTER OF HIGH OR" 

190 PRINT"LOW POINT TOTALS. THE COMPUTER'S" 

155 PRINT"CRAFT WILL BLIP ALL AROUND YOUR" 

160 PRINT'"VIDEO. DOWN THE LEFT AND RIGHT" 

165 PRINT"SIDES WILL BE ASTERISKS. THESE" 

170 PRINT"ARE YOUR LASERS. AT THE INSTANT" 

175 PRINT"YOU THINK THE CRAFT IS IN LINE" 

180 РНІМТ"МІТН THESE, HIT THE 'CLEAR' KEY." 

185 PRINT"YOUR LASERS WILL START MOVING" 

190 PRINT'"TOWARD THE CENTER. THE COMPUTER" 

195 РНІМТ"СНАЕТ WILL ALSO CONTINUE TO MOVE." 

200 INPUT"PRESS ENTER";X$:CLS: PRINT 

205 PRINT"YQU CAN HOLD THE COMPUTER'S" 

210 PRINT"CRAFT FROM MOVING FOR AN AMOUNT" 

215 PRINT"OF TIME, ROUGHLY 20 SECONDS." 

220 PRINT"YOUR SCORE WILL RANGE FROM i500" 

229 PRINT'TO 400, DEPENDING ON WHERE YOU" 

230 PRINT'"DESTROY THE CRAFT (TOP OR BOTTOM" 

239 PRINT'"OF THE VIDEO). THE TIME LIMIT FOR 
THE" 

240 РНІМТ"ЕМТІНЕ RUN WILL BE JUST ABOUT" 

245 PRINT"FIVE MINUTES. THIS WILL BE NOTED" 

290 PRINT"AT THE LOWER RIGHT OF YOUR VIDEO." 

299 РКІМТ"ТНЕ COUNT STARTS AT 30." 

260 РНІМТ"ОН YES, TO HOLD THE COMPUTER'S" 

265 PRINT"CRAFT, HOLD DOWN THE 'ENTER'" 

270 PRINT"KEY..... Ы; 

275 ІМРУТ"РКЕ55 ENTER ТО BEGIN";XS$S:CLS 

290 REM CRAFT/SOUND LOCATION 

295 С5-"<Х)":55-31266 

300 REM OUTER GRAPHICS/POINTS 

305 05-5ТНІМС9(63,42):М-474 

310 G=0:PI=16:PRINT@0,Q$; : PRINTG?60,Q$; 

315 PRINT@1i21,"20";:FOR X-64 ТО 896 STEP 64 

320 PRINTGX,LEFT$(Q05,1); 

325 PRINT@X+63,LEFT$(Q$,1);:GOTO 460 

330 IF MM(»0 GOSUB 355:NEXT ELSE NEXT 

335 PRINT@O,CHR$(30);:PRINT@960,CHR$(30),; 

340 FOR X=64 TO 896 STEP 64 

345 PRINT@X,CHR$ (32); : PRINT@X+63,CHR$(32); 

350 GOSUB 355:NEXT:GOSUB 355:GOTO310 

355 PRINTG?54,ABSCINT(OTT/602-30); 
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396 
360 
365 
370 
375 


380 
385 
390 
395 
400 
405 
410 
415 
420 
425 
430 
435 
440 
445 
450 
455 
460 
465 
470 
475 
480 
485 
490 
495 
500 
5 05 
510 
515 
520 
525 
530 
535 
540 
s 45 
550 
555 
560 
565 
570 
575 
580 
585 
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РНІМТӘММ,5ТНІМС5<5,32); 
PRINT@M,C$;:TT=TT+i 

IF TT»-1800 THEN 800 

MM=M:W=PEEK( 14400) 

IF W=1 AND G¢(=#20 THEN G=G+.4:GOSUB 
750: RETURN 

XX=RND(4):REM CRAFT MOVE 

ON XX GOTO 390,400,410,420 

REM LEFT MOVE 

M=M-RND(5):GOTO 445 

REM RIGHT MOVE 

M=M+RND(5):GOTO 445 

REM UP MOVE 

M=M-64:GOTO 445 

REM DOWN MOVE 

M=M+64: IF РЕЕК(16258)-32 GOSUB 670 
IF РЕЕК(163032-32 GOSUB 670 

IF PEEK(15426)=32 GOSUB 670 

IF PEEK(15470)=32 GOSUB 670 

IF M<=66 THEN 420 

IF M>=950 THEN 410 

POKE $$,13:NN-USRC0) : RETURN 

REM FIRE 

IF X(2832 THEN WzPEEK(14400) 
РІ-РІ-1:ІҒ W=0 THEN 330 

IF W=2 THEN 485 

GOTO 330 

REM LASER ADVANCE 

IF X>=89é OR Х<-127 THEN 330 
H=X:Hi=H+15360:H2=H1+63: UN=JN+1:52=100 
IF RP=1 PRINT@81,ABS(R-UN),; 

РОКЕ H1,32:POKE H2,32:POKE 55,52 
IF РЕЕК(Ні+1) <) 32 OR PEEKCH2-12(2 32 THEN 535 
H1=Hi+i1:H2=H2Z-1:52=S52-1:NN=USR(0> 
POKE H1,42:POKE H2,42 

IF ABS(H2~15360-X)=0 THEN 850 
GOSUB 355:GOTO 505 

REM DIRECT HIT 

РОКЕ H1,42:POKE 55,14 

IF РЕЕК(Н2-12<232 THEN 565 

POKE Н2,32:Н2-Н2-1 

РОКЕ Н2,42 

NN=USR(0):GOTO 545 

REM DELETE 

Z=1:POKE H1,32:POKE H2,32 
NzM*15360:81-220 

POKE N,32:POKE N+1,32 

POKE N+2,32 


290 
995 
600 
605 
610 
615 
620 
625 
630 
635 
640 
645 
650 
655 
660 
665 
670 
675 
680 
685 
690 
695 
700 
705 
710 
715 
720 
725 
730 
7 35 
740 
745 
750 
7 55 
760 
765 
770 
775 
780 
783 
790 
7935 
800 
805 
B10 
815 
820 
825 


J=RND( Š) 

IF N+#J3+464¢=16319 THEN 605 

GOTO 6295 

POKE N+J+6494,92:POKE N«J-64-J,42 
FOR Ісі TO JX*10:NEXT 

POKE N+J+64,32:POKE N«J-64-4,32 
GOTO 640 

POKE N+J-64,42:POKE N«J-64-J,42 
FOR I= TO J*10:NEXT 

POKE N«J-64,32:POKE N«J-64-J,32 
IF Z(z7 THEN 655 

FOKE 55,255: NN=USR(0) 

IF RP=0 GOTO 660 ELSE PI=PI+i:GOTO 665 
2=2+1: РОКЕ SS,S1:NN-USR«(02:GOTO 590 
PIzPI«1:X$-X5$-4"'.' 
PP=PP+PI*100:GOSUB 670:GOTO 850 
AS="TOTAL POINTS: ":T$="TIME LAPSE: " 
F=898 

FOR Ісі TO LEN(AS5) 
PRINT@F+45,MID8(T$,1,1),; 
PRINT@F,MID$¢(A5,1,1),; 

Е=Е+1: NEXT 

PRINT РР; :ІЕ RP=1 THEN 710 

IF X$z""RETURN 

REM RESERVE POWER 

R$="RESERVE POWER:" 

Е= 6 6 . 

FOR Ісі TO LEN(R$) 
PRINTGF,MIDS(RS$,1I,12); 
F=F+1 : NEXT 

IF RP=1 THEN X$zSTRSCABS((OR-UND)) 
PRINT X5; 

TI$z"HOLD TIME:":REM HOLD TIME 
IF PEEK(1547020(»32 THEN 770 
Fz110:FOR Ісі TO LEN(TIS) 
PRINTGF,MIDS(TIS$,I,12;:FzF«1:NEXT 
PRINT@120, INT(CABS(G-20)),; 
RETURN 

REM TIME REMAINING 

IF RPzi THEN DkK=1:GOTO 860 

IF ТТ›=1800 THEN 800 

GOTO 300 

FOR TI=1 TO 1200:NEXT 
CLS:RzLEN(X5$2) 

IF Н-0 THEN 910 

PRINT"VERY WELL DONE...." 
PRINT"YOU HAVE ";R;"UNITS OF" 
PRINT"RESERVE POWER...." 
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830 PRINT"PRESS ENTER TO USE"; 
835 INPUT X$ :TT=0:RP=1:UN=0 
840 CLS 

845 GOTO 300 

850 REM UNITS DELETE (RESERVE) 
855 IF НР-0 THEN 330 

860 IF UN>=R THEN 8735 

865 IF DK=0 THEN 330 

870 DK=0:GOTO 790 


873 REM FINISH 

880 FOR TI=1 TO 1200:NEXT 

885 CLS 

890 PRINT"RESERVE POWER EXHAUSTED...." 
895 PRINT"TOTAL POINTS ACCUMULATED:";PP 
900 PRINT 

905 GOTO ?3 

910 PRINT" YOU HAVE DESTROYED NOTHING." 
915 PRINT" YOU HAVE NO RESERVE POWER." 
920 PRINT 

925 GOTO 895 

930 PRINT 

935 PRINT"END OF RUN." 

990 END 


Variables and Strings 


C$ - Computer's craft 

SS - Sound location (machine routine) 

Q$ - Outer graphics, asterisks 

M,MM - Location of computer craft 

PI - Points, total times 100 

G - Hold time—holding of computer craft 

TT - Amount of playing time 

W - Key closure (PEEK) 

XX - Random craft movement 

NN - USR Call for sound output 

H - Location of asterisk when laser fired 

H1,H2 - Laser advanced toward center then outward 
52 - Also for sound output 

UN - Reserve units used, not valid until RP= 1 

RP - On reserve power 

Z - General, for flashing of destroyed craft 

N - Location of computer craft when destroyed 

J - A random amount used to flash asterisks above or below craft 
X$ - Reserve units, if user's craft destroyed 
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PP - Total outstanding points 

Е - Print © locations, messages 
A$,T$,R$, & TI$ - Messages 

R - Reserve units, total 

DK - Finish of game 


Explanation of the Program Lines 


Line 115 clears 350 bytes of memory for string storage. 

Lines 125-275 display the instructions for playing. 

Line 295 sets C$ to the computer's craft and initializes the 
variable SS for the sound routine. 

Lines 300-430 print the graphics near the edges of the screen 
and control the movement of the computer's craft. The craft is 
moved a random amount distance, determined between lines 370 
and 415. Line 366 tests whether the enter key is being held and 
variable G is less than or equal to 20. Variable TT (line 362 is 
checked to see if the time has expired for the run. The peek 
statements in lines 415-418 are used for the print messages. If the 
computer's craft happens to blank out any letters of these messages, 
they will be reprinted as soon as possible. Lines 420 and 425 keep 
the computer's craft within limits. 

Line 430 outputs a beep sound each time the craft moves. 

Lines 500-565 enable the user to fire the laser. Here the 
asterisks are moved toward the center of the video. If a hit is 
detected (line 545) the program branches to line 570. Line 565 
continues the movement of the computer's craft, if the Enter key 15 
not being held down. Line 560 tests the value of H2 for stopping the 
laser attack. 

Lines 570-676 and 685 detect or destroy the craft and flashes 
asterisks at its location. 

Line 680 tests whether or not user 1s on reserve power. 

Lines 690-695 increase the variable PI by 1 and then multiply 
that amount by 100 to determine your score (line 695). X$ in line 
690 is then increased by one + (plus sign) to indicate added units of 
reserve power. 

Lines 700-795 print messages and amounts. 

Lines 800-830 again test the value TT to determine whether or 
not the game is over. 

Lines 835-875 tells the user how many units of reserve power 
he or she has. (The player receives one unit for each computer craft 
destroyed). Then the user presses the enter key to begin using the 
reserve laser power. 
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Lines 900-920 test the amount of UN (reserve power) to see if 
it has all been used. 
Lines 925-990 display the final message and the total score. 
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(492 CS 
40) 4030 
Z ZA 


TEE OS © 
(402) 4)4М» 
297 Y 


DANGEROUS AFFAIR 


All of your life you've wanted to be a spy, a double agent that would 
help his country in time of need. Here's your chance. Through 
messages you will relay, the computer will test to see if you would 
actually make a good spy. Some of the messages will be straight 
while others will be coded. There are agents (besides you) that will 
accidently forget the message you've given them, so try to re- 
member each...very, very well. Remember to use the proper value 
for L in line 250. Refer to page 3. 


Sample Run 
>> DANGEROUS AFFAIR << 


SEE OUTLINE? MAYBE 
TRY A YES OR A NO ANSWER. 


SEE OUTLINE? YES 
SO YOU WANT TO BE A SPY AND YOU 
THINK YOU'D BE A GOOD ONE AT 
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THAT? THIS PROGRAM WILL SOON 
LET YOU KNOW. YOU MUST FOLLOW 
AND PASS ALONG ANY INSTRUCTIONS THAT 
WILL BE GIVEN TO YOU; SOME 

OF THEM WILL BE CODED, WHICH 
MEANS YOU'LL HAVE TO BREAK 

THE CODE BEFORE PASSING THE 
INFORMATION GIVEN. 

REMEMBER TO PASS INFORMATION 
EXACTLY AS IT IS GIVEN TO YOU 
(EXCEPT WHERE CODED), 

FIRST NAME? 005 


PASS THIS ALONG: 

‚М.Р 4 TA Т5 МАМ OT OG 

WHAT WAS THAT MESSAGE? 005 
PLEASE REPEAT 


PASS THIS ALONG: 
NADES KCALB A NI TEG 


WHAT WAS THAT MESSAGE? 005 
| MISSED PART OF IT 


PASS THIS ALONG: 
ANSWER THE PHONE AT 4TH ST. 


WHAT WAS THAT MESSAGE? 005 
ANSWER A PHONE AT 4TH STREET 


PASS THIS ALONG: 
GO TO THE 12TH ST. BRIDGE 


WHAT WAS THAT MESSAGE? 005 
GO TO A BRIDGE AT 12TH STREET 


PASS THIS ALONG: 
NOITCES F/D ROF ELIF AERA TEG 


WHAT WAS THAT MESSAGE? 005 
SOMETHING ABOUT A NOTICE? 
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START 


PRINT INSTRUCTIONS 
INPUT NS(NAME) 


READ DATA/M=1 


N 


OUTPUT 
MESSAGE 
OUTPUT 
CODED 
MESSAGE 


INPUT M$ 


C | 


Y E 


CLOSING 
MESSAGE 


STOP 


INPUT PAST 
MESSAGE 


Flowchart for Dangerous Affair. 
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AGENT 28 DID NOT RECEIVE 
MESSAGE # 5, WHAT WAS 

IT, 005? 

YOU TELL ME 

PASS THIS ALONG: 

MEET HARRY AT 1ST ST. BAR 


WHAT WAS THAT MESSAGE? 005 
MEET HARRY AT BAR 


PASS THIS ALONG: 
YRRAH FO ESOPSID 


WHAT WAS THAT MESSAGE? 005 
| FORGOT REPEAT O.K.? 


STOP 


This was not a complete run. 


Program Listing 


10 REM PROGRAM TITLE: DANGEROUS AFFAIR 
20 RANDOM:CLS 

30 CLEAR 500:DIM M$(21) 

50 PRINT"55 DANGEROUS AFFAIR ‹‹" 

60 PRINT 

70 INPUT"SEE OUTLINE";X$ 

80 IF Х5-"ҮЕ5" THEN 120 

90 IF X$="NO" THEN PRINT:GOTO 240 

100 PRINT"TRY A YES OR А NO ANSWER." 
110 GOTO 60 


120 PRINT"SO YOU WANT TO BE A SPY AND YOU" 


130 PRINT'"THINK YOU'D BE A GOOD ONE AT" 
140 PRINT'"THAT? THIS PROGRAM WILL SOON" 
150 PRINT"LET YOU KNOW. YOU MUST FOLLOW" 


160 PRINT"AND PASS ALONG ANY INSTRUCTIONS 


THAT" 
170 PRINT"VWILL BE GIVEN TO YOU; SOME" 
180 PRINT"OF THEM WILL BE CODED, WHICH" 
190 PRINT"MEANS YOU'LL HAVE TO BREAK" 
200 PRINT"THE CODE BEFORE PASSING THE" 
210 PRINT" INFORMATION GIVEN." 
220 PRINT' REMEMBER TO PASS INFORMATION" 
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230 
235 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
4?0 
300 
510 
520 
530 
540 
9250 
560 
270 
580 
390 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 


PRINT"EXACTLY AS IT IS GIVEN TO YOU" 
РКІМТ"(ЕХСЕРТ WHERE CODED). 

INPUT" FIRST NAME" ;N$ 

CLS:M=1:L=31266 


REM GET MESSAGES 


(INFORMATION) 


FOR Ігі TO 20 


READ 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


M$ (I>): МЕХТ 

GO TO МАІМ ST. AT 4 P.M. 

GET IN À BLACK SEDAN 

ANSWER THE PHONE AT 4TH ST. 
GO TO THE 12TH ST. BRIDGE 

GET AREA FILE FOR D/F SECTION 
MEET HARRY AT 15Т ST. BAR 
DISPOSE OF HARRY 
GIVE THE D/F FILE 
RETURN TO MAIN ST. AT 11 P.M. 

GET IN BLUE/WHITE HARDTOP 

RECEIVE CODED MESSAGE FROM DRIVER 
GIVE MESSAGE TO RHONDA 

DUMP HER THEN STEAL HER CAR 

DRIVE IT TO 31ST ST. EXIT 

DESTROY THE CAR 

GO TO LAST FLIGHT AIRPORT 

BOARD THE 3 A.M. FLIGHT 

LEAVE PLANE AT LYTERA AIRPORT 
GIVE CODED MESSAGE TO MAN AT GATE 
RETURN TO PLANE AT 3 P.M. 


TO INTER C 


PRINT"PASS THIS ALONG:" 
FOR Ү-і TO 2 
CR=RND(3):1F CR=3 THEN 590 


NEXT: 


I=1l:J=LEN(M$ (M) ) 


PRINT MIDS(M$(M),1,1); 


POKE 


L,ASGO(MIDS(M$ (M) ,1,1))+45 


A=USR(0) 


I=I+1 


IF I>J THEN 700 


GOTO 


930 


REM CODE IT 
FOR Ү=1 TO 2:CC=RND(2) 


NEXT 


T=LEN(MS$(M)):J=1 
IF CC=2 THEN 690 
PRINT MIDS(MS¢(M),1,1); 


POKE 


L,ASC(MIDS (M$ (M) ,1,1))+60 


A=USR(0) 
IzI-1:IF І-0 THEN 700 


GOTO 


630 


K$=STRS$ (ASC(MIDS(MS(M),1I,1) 9? 
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695 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
850 
860 
970 
880 
890 
900 
910 
920 
930 
940 
950 
960 
1000 
1010 
1020 
1030 
1040 
1050 
1060 


1070 


1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 


PRINT K$;:GOTO 650 

REM PAUSE 

IF CC=1 OR CC=2 THEN 800 
FOR М-1 TO 400:NEXT: CLS 
РНІМТ"МНАТ WAS THAT MESSAGE 
INPUT M$ 

IF М5<>М5(М) THEN WM=WM+1 
М=М+ 1 

IF M=21 THEN 1000 

FOR W=1 TO 1000:NEXT 
CLS:GOTO 850 

REM LONGER PAUSE 

FOR W=1 TO 2500:NEXT 
CR=0:CC=0:GOTO 720 

REM DID NOT RECEIVE OR FORGOTTEN 
IF M>=6 AND Míz16 THEN 880 

GOTO 490 

Y=RND(2) 

IF Y=1 THEN 490 
Y=RND(M):AG=RND(100) 

PRINT" AGENT"; AG; "DID NOT RECEIVE" 


и М6 


PRINT"MESSAGE #";Y;", WHAT WAS" 
PRINT"IT ";N$ 

INPUT M$ 

IF M$40M$CY) THEN WM=WM+1 


CLS:GOTO 490 
REM END 
IF WM>=10 THEN 1070 


PRINT"YOU'VE DONE ALRIGHT ";NS$ 


PRINT"YOU NOW CAN BECOME A" 
PRINT"COMPUTER SPY, AND" 
PRINT"PASS MESSAGES..." 

GOTO 1130 

PRINT"GOOD GRIEF, TURKEY f!i" 
PRINT"YOU FAILED";WM; "OF THE";M-1 
PRINT"MESSAGES GIVEN TO YOU." 
PRINT"TO YOU THIS WAS NOT A" 
PRINT"DANGEROUS AFFAIR; IT WAS" 
PRINT"A LOST MISSION !!!" 

PRINT 

PRINT"END OF PROGRAM..." 

END 


Variables and Strings 
N$ - First name of user 


Mš(D 


- Information messages 


M - Counter, messages given 
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L - Machine language address 

CR, CC - Used to code message 

J - Length of M$(M), which is the message if the message is not 
coded. 

If the message is coded, I is the Length of M$(M) 

M$ - User input of message 

WM - Wrong message entered 


Explanation of the Program Lines 


Line 30 clears 500 bytes of memory for string storage and 
dimensions M$. 

Lines 50-235 display the instructions, if they are required. 

Line 240 inputs the user's first name. 

Line 250 clears the video and initializes the variables M and L. 

Lines 260-280 read the data elements into the M$ array. 

Line 490 begins the actual entries. 

Lines 500-510 branch to the message encoding routine if CR 1s 
equal to 3. 

Line 520 initializes the variables I and J. 

Lines 530-580 display the message in uncoded form and pro- 
duce a sound for each letter. 

Lines 590-695 output the messages in simple coded form (if 
CR — 3). The message will be printed in one of two ways, depending 
on the value of CC. 

Lines 700-720 allow a pause before the video is cleared. А 
longer pause 1s allowed if message was printed in code. 

Lines 730-790 allow the user to pass the message he or she was 
just given. If the message is incorrect, the variable WM will be 
increased by 1. If all messages have been used (M = 21), the pro- 
gram branches to line 1000. 

Lines 850-960 further test the user's memory by asking him to 
repeat earlier messages, if M>= 6, M<= 16, and Y (random 15 
equal to 2. Again, if the response 15 incorrect, counter WM will be 
increased by 1. 

Lines 1000-1150 print a final message and terminate the pro- 
gram. 
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PENNIES OR DOLLARS 


Now here is the opportunity you've been longing for: you can get 
rich, starting with only $50.00. Use your head when you make each 
loan or investment, and you'll be loaded with computer money. Fail, 
and you'll end up with less than you started with. You'll be surprised 
at how fast time flies when the loans start getting paid back. And of 
course, there are loans that will be defaulted on and investments 
that will bomb and do nothing else; watch out for these. 


Sample Run 


$$$ PENNIES OR DOLLARS $$$ 


ALL YOU HAVE TO YOUR NAME 15 
$50.00 DOLLARS. BUT YOU 

HAVE COME UP WITH A SCHEME TO 

MAKE SOME GOOD MONEY. YOU HAVE 

DECIDED TO MAKE LOANS AND TO 

INVEST IN SOME PROJECTS. WHO- 

EVER YOU MAKE A LOAN TO WILL 

NATURALLY HAVE TO PAY IT BACK 

WITH INTEREST. AND WHATEVER 

YOU INVEST IN COULD MAKE YOU 
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D-D-iV 
Y 


BROKE 
MESSAGE 


TOO RICH TO 
CONTINUE 
MESSAGE 


Flowchart for Pennies or Dollars. 
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A MINT...IF YOU MAKE 
THE RIGHT INVESTMENTS. 


PRESS ENTER? 
YOUR INITIALS? D.C. 


D.C. YOU'LL HAVE TO BE CAREFUL 
HOW YOU LOAN MONEY 

OR HOW MUCH YOU INVEST. DON'T 
GET GREEDY, OR YOU'LL PROBABLY 
LOSE EVERYTHING. 


PRESS ENTER TO BEGIN YOUR VENTURE? 


Program Listing 


10 REM PROGRAM TITLE: 

20 REM PENNIES OR DOLLARS 

30 CLEAR 200:CLS:DinM TÀA(20)0,LL(20) 

40 PRINT"$$$ PENNIES OR DOLLARS $$$" 

90 PRINT 

60 INPUT"INSTRUCTIONS REQUIRED (Y/N)";X$ 
70 Dz30:D$z"6$$959095690.9206" : RANDOM 

80 IF X$="N" THEN 220 

90 PRINT"ALL YOU HAVE TO YOUR NAME IS" 
95 PRINT USING D5$,D; 

100 PRINT" DOLLARS. BUT YOU" 

110 PRINT"HAVE COME UP WITH À SCHEME TO" 
120 PRINT"MAKE SOME GOOD MONEY. YOU HAVE" 
130 PRINT"DECIDED TO MAKE LOANS AND TO" 
140 PRINT"INVEST IN SOME PROJECTS. WHO-" 
150 PRINT"EVER YOU MAKE А LOAN TO VILL" 
160 PRINT"NATURALLY HAVE TO PAY IT BACK" 
170 PRINT"WITH INTEREST. AND WHATEVER" 
180 PRINT"YOU INVEST IN COULD MAKE YOU" 
190 PRINT"A MINT...IF YOU MAKE" 
200 PRINT"THE RIGHT INVESTMENTS." 
210 INPUT"PRESS ENTER"; X&:CLS 
220 INPUT" YOUR INITIALS" ;,15 
229 IF I$z"" PRINT" PLEASE, ";:GOTO 220 
230 PRINT I$;" YOU'LL HAVE TO BE CAREFUL" 
240 PRINT"HOW YOU LOAN MONEY (AMOUNTS)" 
250 PRINT"OR HOW MUCH YOU INVEST. DON'T" 
260 PRINT"GET GREEDY, OR YOU'LL PROBABLY" 
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270 PRINT"LOSE EVERYTHING." 

280 PRINT:DIM А1<(100),АН(20),А1.(20),.А(20) 

290 INPUT"PRESS ENTER TO BEGIN YOUR 
VENTURE"; Х5 

300 CLS:Rz1:Vz129?:VVzO 

310 GOSUB 320:GOTO 710 

320 REM CHART 

325 IF 2Т-і THEN 540 

330 FOR X=0 TO 127 

340 SET(X,4):NEXT: Iz1:ZT-1 

350 GOSUB 430 

360 IF Х‹›4 THEN X=X+? 

370 FOR LT=1 TO LEN(AS$) 

380 PRINT ТАВ(Х) MIDS$(AS,LT,1); 

390 X=X+1: NEXT 

400 I=I+1 

410 IF Is6 THEN 540 

420 GOTO 350 

430 ON I GOTO 440,460,480,500,520 

440 A$="ASSETS" 

450 Xz4: RETURN 

460 ASZ"LOANS" 

470 RETURN 

480 A$="INVESTED" 

490 RETURN 

500 A$="RETURNED" 

910 RETURN 

520 A$="LOST" 

930 RETURN 

540 IF TH-1 THEN 580:REM AMOUNTS 

550 TA(R)2zD 

560 LL(R)=L:LA(R)=LA 

565 IF GK=1 ОН IJ=1 THEN RETURN 

570 IF M«»0 RETURN 

580 XzV:Iz1:IVz0 

590 GOSUB 645 

600 PRINT@X+1,USING 05;Т; 

610 XsX«13:IF X52959 THEN GOTO 1660 

620 I=I+1 

630 IF I»5 RETURN 

640 GOTO 590 

645 REM AMOUNT FOR T 

650 ON I GOTO 660,670,680,690,700 

660 IF R=13 AND M=14 THEN T=TA(R+1):RETURN 

665 T=TACR) RETURN 

670 IF Н-13 AND M=14 THEN T=LL(R+1): RETURN 

675 T=LLC(R) : RETURN 

680 T=AI(R): RETURN 
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690 T=AR(R): RETURN 

700 T=AL(R):RETURN 

710 IF р<=6 AND PR=0 THEN 1150 

719 PRINTG9?60,"PRESS ENTER", 

720 ZT=0: INPUT X$S:IF GK=1 THEN 1680 
721 CLS: PR=0 

729 IF 72-1 GOSUB 1220 ELSE IF 72-2 GOSUB 1380 
730 REM LOAN/INVESTMENT 

740 I-zRND(2) 

750 ON I GOTO 755,1430 

755 PRINT'"YOUR ASSETS ARE NOW: "; 

760 PRINT TAB(232USING D$ ;D 

765 РНІМТ"А LOAN FOR APPROVAL ";I$;":" 
770 LzINT(OD-RND(102)5:IF D<=5 THEN 2100 
780 IF L3 THEN 770 

790 PRINT"LOAN AMOUNT:";TAB(200USING D$ ;L 
800 P$S$="8%.#%" : LA=L:GOSUB 1280 

810 PRINT" PERIODIC RATE: "; 

820 PRINT TAB(CZ5)>)USING P$;PE 

830 PS$="8#8.#%" 

840 PRINT“ ANNUAL RATE: "; 

950 PRINT TAB(C24) USING P$;PE*12 

860 REM LENGTH OF PAYBACK (MONTHS) 

870 IF L»zi AND L(«100 THEN PB=12 

880 IF L»-z101 AND L¢=1000 THEN PB=24 
890 IF L>=1001 AND І.<-9000 THEN PB=36 
900 IF L»-9?001 AND І.<-19000 THEN PB=48 
910 IF І>2-19001 THEN РВ-240 

920 REM AMT. БҮ PERCENT 

930 FC=L¥PB/100:L=L+FC 

940 PRINT"FINANCE CHARGES:"; 

950 PRINT TAB(20)USING D$;FC 

960 PRINT"TOTAL OF LOAN:"'"; 

970 PRINT ТАВ(20) Ч5ІМС DS$;L 

980 PRINT"PAYMENTS:"'"; 

990 PRINT ТАВ‹20) Ч5ІМС D$,;L/PB 

1000 PRINT 

1010 INPUT"APPROVE ҰҰ/М»)"; А6 

1020 IF AS="Y" THEN 1040 

1030 GOTO ?21 

1040 D=D-LA: IF HJ=1 THEN 1800 

1050 CLS:IF HJ=0 THEN R=R+1:M=R:GOSUB 540 
1060 M=R:R=1:TH=1 

1070 GOSUB 320 

1080 IF R«M THEN 1100 

1090 GOTO 1120 

1100 R=R+i:V=V+64 

1110 GOTO 1070 
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1120 REM PAYBACK 

1130 IF D¢=6 THEN 1150 

1140 V=129:TH=0:GOTO 710 

1150 REM LOAN AMOUNT 

1160 FOR U=1 TO M 

1170 IF LL(U24»0 THEN 1320 

1175 NEXT: PR=1 

1180 IF GK-1 RETURN ELSE GOTO 1140 

1190 D=D+LL(U):AR=AR+LL(U):GOSUB 2300 
1200 LL(U)=0:LA(U)=0O:L=0:IF GK=1 THEN 1220 
1205 R=R+1:GOSUB 550:GOSUB 1920 

1210 ZZ=1:GOTO 1140 

1220 PRINT:REM RETURNED 

1230 PRINT"LOAN #";RND(10000);"HAS BEEN" 
1240 PRINT"PAID IN FULL. AMOUNT "; 

1245 PRINT USING D$;AR 

1250 PRINT"TOTAL ASSETS NOW:";USING D$;D 
1260 FOR W=1 TO 2000:NEXT 

1270 AR(R-1)=AR:AR=0:2Z=0:CLS:RETURN 

1280 REM PERCENT 

1290 РЕ=1 

1300 PE=PE+RND( . 9) 

1310 RETURN 

1320 REM AMT. LOST 

1330 LK=RND(4) 

1340 IF LK=1 OR LK=4 THEN 1190 

1345 IF D-LA(U)<=6 AND TF=0 THEN 1190 
1348 IF U=13 THEN U=14 

1350 D=D-LA(U) :AL=AL+LA(U) 

1360 LL(U)=0:LA(U)=0:L=50:IF GK=1 THEN 1380 
1365 R=R+1:GOSUB 550 

1370 ZZ=2:GOTO 1130 

1380 PRINT:REM LOST 

1390 PRINT"LOAN #";RND(10000);"HAS BEEN" 
1400 PRINT"DECLARED DEFAULT, SORRY." 

1410 PRINT"AMOUNT LOST:";USING D$ ;AL 

1420 GOTO 1250 

1430 REM INVESTMENT 

1431 IF VV>=101 THEN GOSUB 2200:GOTO 750 
1432 IF П<-15 OR Н(-2 THEN I=1:GOTO 750 
1435 PRINT"A POSSIBLE INVESTMENT..." 

1440 IV=RND(5000):IF IVOD«5 THEN 1440 
1445 IF D-IV4s10 THEN I=1:I1V=0:CLS:GOTO 750 
1450 PRINT"YOU CAN NOW MAKE AN INVESTMENT." 
1455 IF HJ=1 THEN 1510 

1460 PRINT"IF AND WHEN IT PAYS OFF YOU" 
1470 PRINT"VILL RECEIVE À *^ FOR EVERY" 
1480 PRINT"LOAN YOU MAKE. IF IT DOES NOT" 
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1490 
1500 
1505 
1510 
1520 
1530 
1540 
1550 
1560 
1565 
1570 
1575 
1580 
1590 
1600 
1610 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1915 
1920 
1925 
1930 
1940 
1950 
1955 
1960 
1965 
1970 
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PRINT"PAY OFF YOU WILL LOSE А %" 
PRINT"WITH EVERY LOAN YOU MAKE." 
PRINT"CPERCENT BASED ON CURRENT RATES)" 
PRINT" INVESTMENT $&";RND(S500) 

PRINT" AMOUNT NEEDED: "; USING D$,IV 
PRINT 

INPUT" INVEST (Y/N) ";A$ 

IF A$= "Y" THEN VV=VV+1: GOTO 1565 
CLS:I=1:1V=0:GOTO 750 

IF VV=101 THEN 1431 

D=D- IV 

AICVVOZIV:HJz1 

TACR)=D:GOTO 1560 

НЕМ RESET INVEST AMOUNTS 

AR=0:AL=0 

GOTO 1050 

REM RESET VARIABLES 
V=129:X2V:GKe1:GOTO 715 
CLS:D=TACR+1):FOR U=1 TO M 

IF LL¢U)<)0 THEN 1710 

GOTO 1720 

GOSUB 1160 

LL(U»20: AR(UDxQ 
AL(U)=0:LA(U)=0:NEXKT 

R=1:GOSUB 550:GOSUB 1910 

СК=0: THzO:Rz1:Mz0:GOTO 721 

REM INVESTMENT PER % 

IJz1:FOR U=1 TO M:LK=RND( 6) 
PB=(AI(U)/PE)/ 5 

IF AI(U»4»0 THEN 1850 
NEXT:IJZzO0:RzR«1:GOSUB 1910:GOTO 1590 
IF LK=1 OR LK=3 OR LK=6 THEN 1880 
DeD+PB:AR=PB:AR(R)2AR 

GOSUB 2300:GOTO 1890 
О0=р-РВ: АІ =РВ:АІ (К) = АІ 
TACR+1)=D:GOSUB 560 

СОТО 1840 

REM AMOUNT TO TRUST FUND 

IF ТЕ<(20 PRINT"PROCESSING TRUST FUND..." 
Те-"558888,888,89%4.88" 

IF 0) =25000 THEN 1940 

IF ТЕ<›0 THEN 1955 ELSE RETURN 
TF=TF+1000:D<D-1000: PM= 1 
TD=TD+1000:GOTO 1925 

TA(R+1)=D:IF PM=0 OR RF=1 RETURN 
PRINT" PROCESSED TO FUND ";USINC T$,TD 
PRINT' TOTAL AMOUNT OF ";USING Т%;ТҒ 
PRINT"IS NOV IN À TRUST FUND" 


1980 PRINT"FOR YOUR USE ";I$,;"." 

1990 FOR Wzi TO 1000:МЕХТ:РМ=0:Тр=0: RETURN 
2000 REM BUSTED 

2010 PRINT: DS="$S88. 88" 

2020 PRINT“ SORRY, YOUR LOANS OR INVESTMENTS" 
2030 PRINT"DID NOT PAY OFF FOR YOU ";1$ 
2040 PRINT"YOUR TOTAL ASSETS ARE TOO LOW" 
2050 РНІМТ"ТО CONTINUE ("; 

2060 PRINT USING D$;D;:PRINT"2, SORRY." 
2070 PRINT: PRINT"TERMINATION OF RUN..." 
2080 END 

2100 REM TRUST FUND RETURN 

2110 IF ТҒ<20 THEN 2130 

2120 GOTO 2000 

2130 DezD«TF: TFzO:RFz1:GOSUB 1920 

2140 PRINT 

2190 PRINT"AN AMOUNT OF ";USING D$;D 

2160 PRINT"IS NOW YOUR TOTAL ASSETS," 

2170 PRINT"DRAWN FROM THE TRUST FUND." 
2180 GOSUB 1965 

2190 TACRI2D:RF=0:COTO 715 

2200 REM NO MORE INVESTMENTS 

2210 PRINT 

2220 PRINT"NO MORE INVESTMENTS CAN ВЕ" 
2230 PRINT"MADE NOW ",I$,;" SORRY." 

2240 FOR W=1 TO 2000:МЕХТ 

2250 I=1:RETURN 

2300 REM ASSETS ENOUGH TO RETIRE 

2310 IF D>=9E+07 THEN 2330 

2320 RETURN 

2330 PRINT: IF Т%-"" THEN 2410 

2340 PRINT"YOUR TOTAL ASSETS ARE NOW ENOUGH" 
2350 PRINT"FOR YOU TO RETIRE “;15;"." 

2360 PRINT"YOU HAVE A GRAND TOTAL OF ^"; 
2370 PRINT USING T$ ;D 

2380 PRINT 

2390 PRINT"THIS PROGRAM MUST BE TERMINATED." 
2400 PRINT:GOTO 2070 

2410 TS="SSHHEt, RHR, HER. FH" 

2420 GOTO 2340 


Variables and Strings 


TA(N) - Total assets 

LL(N) - Loans approved 

AI(N) - Amount invested 

AR(N) - Amount returned from the loan or investment 
AL(N) - Amount lost 


179 


LA(N) - Loan amount not including interest 

D - Dollar amount for ТА(М) 

D$ & T$ - For printing amounts 

I$ - User's initials 

R & M - For total amount of assets, loans, and returns 

These variables go no higher than 13 

W - For Print 9 areas 

VV - For total investments up to 100 (AI(N) 

TH - For print of amounts only 

GK & JJ - For return of GOSUB, after amounts have been adjusted 

M - For a total of R, print of amounts up to M 

IV - Random investment amount 

X - For Print 9 locations of amounts 

LL - For messages 

LA - Loan amount before interest 1s tacked on 

L - Total loan amount 

PE - Interest rates 

PB - Payback in months 

LK - Random number selector for return or loss of loan or invest- 
ment 

TF - Trust fund 


Explanation of the Program Lines 


Lines 60-270 display the instructions, 1f needed, and asks for 
the user's initials. 

Line 300 initializes 3 variables. 

Lines 300-700 prints the current chart, which shows the user's 
total assets, loans, returns, etc. 

Line 710 branches to line 1150 for a loan return if D (amount in 
assets) is less than or equal to $6.00. 

Line 720 branches to line 1680 for all loan returns if video has 
been filled (R=13). At this point, some borrowers could default on 
their loans. 

Line 725 branches to the appropriate print messages for loans 
returned (ZZ —1) or loans lost (ZZ = 2). 

Lines 730-1010 selects and prints a loan amount to be approved 
or disapproved If I=1. If I— 2, an investment opportunity is offered 
(line 1430). 

Lines 1040-1110, deduct the amount of the loan from the user's 
total assets and chart the returns. 

Lines 1120-1210 control the repayment of a loan if LK 15 equal 
to 1 or 4. If itis not (LK= 2 or LK = 3), the loan will be declared 
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default. Only the principal of the loan will be lost at this point (lines 
1335-1420). 

Lines 1280-1310 select a random percent for the finance 
charges. 

Lines 1430-1580 select an investment amount (random) if 
counter VV (total investments) is less than or equal to 100. This 
investment amount (if approved) will be deducted from the user's 
total assets, and HJ will then be equal to 1. Each time a loan is made 
(and HJ=1), all investments from 1 to M (total loans) will either 
bring a return or a loss, depending on a random integer, LK in lines 
1800-1900. 

Lines 1910-1990 place an amount in a trust fund for future use if 
D (total assets) is greater than or equal to 25E+ 03. 

Lines 2000-2080 terminate the program if all loans have been 
returned, the trust fund is all used, and D< = 5 ($5.00). 

Lines 2100-2190 withdraw an amount from the trust fund and 
adds it to the total assets when needed. 

Lines 2200-2250 display a message that no more investments 
can be made (VV —101). 

Lines 2300-2420 terminate the program if D is greater than or 
equal to 9E +07. 
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BE PREPARED (PART І) 


Where is part II you say? Some things must be left for the future, 
and besides, if you're reading this, you haven't made it through part I 
yet! At any rate, you are located somewhere in outer space. There 
are four tubes you must propel your vessels into. Your vessels will 
move continuously. You will use numeral keys to propel them into 
these tubes. The first numeral keys that will correctly propel the 
vessel will be 1 and 2. Each time the vessel makes a cycle (left to 
right and back to the left) the computer will increase the highest 
numeral you must press by 1 (i.e., 1-2,1-3,1-4, etc., up to 1—9). 
This means that you will have to guess which numeral will propel 
the vessel into the tube. Only the right one will do the trick. Refer to 
pages 1-3 for information on the sound routine. Note that the IBM 
version of this program is included in Appendix A, and the Apple 
. version in Appendix В. 


Sample Run 


BE PREPARED (PART 1) 

IF YOU HAVEN'T DONE SO, READ AND 
FOLLOW ALL INSTRUCTIONS FOR PLAY. 
YOU MUST UNDERSTAND EVERYTHING. 
INSTRUCTIONS? YES 


THIS GAME TAKES 
PLACE IN A DISTANT OUTER SPACE 
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START 


Y 
PRINT 
INSTRUCTIONS 


SET 
VARIABLES 


SET GRAPHICS 
FOR PORTS 


MOVEMENT OF 
VESSEL 


MOVE VESSEL 
Y RIGHT 
N 
VL = VL +1 <> 


Y 


MOVE VESSEL 
LEFT 


DOCKED 
Y 
N 
DESTROYED 
Y 


MESSAGE OUT 
OF FUEL/ 
DESTROYED 


——————— MR RR 


| FINAL | ( ; 
N <> Y MESSAGE STOP 


Flowchart for Be Prepared (Part 1). 
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FUEL REMAINING: 21 TONS 


LOCATION. WHAT YOU WILL SEE IS 

FOUR TUBES; THE TOPS ARE CLOSED 
WHILE THE BOTTOMS OPEN FOR ENTRY. 
WILL BE LOCATED AT 

THE BOTTOM OF THE TUBES, IN THE 

FORM OF AN ASTERISK. IT WILL BE MOVED 
CONTINUOUSLY FROM 

LEFT TO RIGHT. NUMERAL KEYS 

1-2 WILL PROPEL YOUR CRAFT 

INSIDE A TUBE, BUT YOU MUST 


PRESS ENTER? 


DECIDE WHICH KEY WILL DO THE 
JOB. ONLY ONE NUMERAL WILL 
WORK, AND THE COMPUTER WILL 
INCREASE THE MAXIMUM VALUE WITH EACH 
CYCLE. І.Е., 1-3, 1-4, ETC. YOU HAVE 
20 VESSELS TO DOCK, ONE OTHER 
THING THAT CAN STOP YOU IS THE 
AMOUNT OF FUEL REMAINING (PER 
VESSEL. ONLY IF YOU UNDERSTAND 
ALL INSTRUCTIONS, PRESS ENTER TO 
DOCK THE FIRST VESSEL? 


Program Listing 


10 REM PROGRAM TITLE: BE PREPARED (PART I) 

20 CLS: RANDOM 

30 PRINT"BE PREPARED (PART I? 

40 PRINT 

S0 PRINT"IF YOU HAVEN'T DONE SO, READ AND" 

60 PRINT"FOLLOW ALL INSTRUCTIONS FOR PLAY." 


70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 


PRINT"YOU MUST UNDERSTAND EVERYTHING." 
PRINT 

INPUT" INSTRUCTIONS" ;Q$ 

IF MID$(0$,2,12 <) "E" THEN 400 

PRINT 

PRINT"THIS GAME TAKES" 

PRINT"PLACE IN A DISTANT OUTER SPACE" 
PRINT"LOCATION. WHAT YOU WILL SEE IS" 
PRINT"FOUR TUBES; THE TOPS ARE CLOSED" 
PRINT"WHILE THE BOTTOMS WILL BE OPENED" 
PRINT"FOR ENTRY." 

PRINT"YOUR VESSEL WILL BE LOCATED AT" 
PRINT"THE BOTTOM OF THE TUBES, IN THE" 
PRINT"FORM OF AN ASTERISK. IT WILL MOVE" 
PRINT"CONTINIOUSLY FROM" 

PRINT"LEFT TO RIGHT. NUMERAL KEYS" 
PRINT"1-2 WILL PROPEL YOUR CRAFT" 
PRINT"INSIDE A TUBE, BUT YOU MUST" 
PRINT 

INPUT"KEY ENTER";X 

CLS 

PRINT"DECIDE WHICH KEY WILL DO THE" 
PRINT"JOB. ONLY ONE NUMERAL WILL" 
PRINT"VORK, AND THE COMPUTER WILL" 
PRINT"INCREASE THE MAXIMUM VALUE 

WITH EACH" 

PRINT"CYCLE. I.E.,1-3, 1-4, ETC. YOU HAVE" 
PRINT"20 VESSELS TO DOCK. ONE OTHER" 
PRINT'"THING THAT CAN STOP YOU IS THE" 
PRINT"AMOUNT OF FUEL REMAINING (PER" 
PRINT"VESSEL). ONLY IF YOU UNDERSTAND" 
PRINT"ALL INSTRUCTIONS, PRESS ENTER" 
PRINT"TO DOCK THE FIRST VESSEL"; 

INPUT X 

CLS 

REM VESSELS / BEGIN VALUE 


V=20:DS=0:DK=0:VL=2 
REM TUBES 

К-8:Ү-26 

FOR Т-Ү ТО 0 6ТЕР-і 


SET(X,T):SET(X+5,T) : NEXT 
FOR T=X TO X+5 

SET(T,0) :NEXT 

REM DO FOUR 

Х=Х+31 

IF X=Y*w5+2 THEN 530 

GOTO 450 

REM BOTTOM OF PORTS 
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540 
550 
560 
570 
580 
290 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
885 
890 
900 
910 
920 
930 
940 
950 
960 
970 
990 


1000 
1010 
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Wz0:Xz8 

FOR T=W TO X 
SET(T,YO:NEXT:IF P=i THEN 600 
W=X+é: X=X+31 

IF М-107 THEN Х-127:Р-1 
GOTO 550 

REM FUEL 

F=200 

F$="FUEL REMAINING:" 

Х-980 

FOR Ісі ТО LEN(F$) 
PRINTGX,MIDS(F$,1,1); 
X=X+1:GOSUB 1500 

NEXT:IF 6-і RETURN 

Q=X+1 

PRINTGO,F; 

REM START LOCAL 
Lz640:V$z"*":ZX-255:PK-1 
M=L+63:P=RND(VL):R=0 
PRINTGL,V$; 

REM BY INKEYS 

X$-INKEY$ 

IF VAL(X$)=P THEN 900 

FOR Т=1 TO 5:NEXT 

PRINTGL," "; 

IF R=1 THEN 810 

L-L«1:COTO 840 

L-L-1 

IF L<=M THEN 720 

GOTO 850 

IF L^sM THEN M=L-63:R=1:VL=VL+1 
F=F-1:IF VL>=? THEN VL-? 

IF Ғ(-0 THEN 1200 
PRINTGQ,F;:PRINTGQO^45," "TONS"; 
IF INTCF/10)=F/10 THEN 1540 
IF F(s10 THEN 1540 

GOTO 730 

REM PORT? 

7-1:7Х-50:РК-0 

PRINTGL," "; 

L=L-64 

PRINTGL,V$; 

J=J+1:GOTO 1540 

IF РЕЕК(1+15360-64)‹) 32 THEN 990 
GOTO 920 

IF J(s2 THEN 1030 


F$z" VESSEL DOCKED SAFELY " 
G=1:GOSUB 630 


1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1200 
1210 
1220 
1230 
1240 
1250 


1300 
1310 
1320 
1330 
1340 
1350 
1355 
1360 
1370 
1380 
1385 
1390 
1400 
1410 
1420 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 


DK=DK+1:GOTO 1070 

F$2"V E S SEL DESTROY E D" 
FOR T=1 TO $00:NEXT:PRINTGL," "'; 
G=1:X=975:GOSUB 640 

DS=DS+1 

GOSUB 1600 

FS=STRING$ (32,32) :X=975 

GOSUB 640 

VzV-1:Gz0 

IF У<-0 THEN 1300- 

VL=VL+1 

IF VL»-9 THEN VLz? 

GOTO 600 

REM FUEL EXHAUSTED 

F$z"F U E L E X H AU S T E D" 
С=1:Х=975 

GOSUB 640 

FOR T=1 TO 500:МЕХТ 

GOTO 1030 

REM ALL VESSELS IN 

G-1:XXz0 

FS="A L L v E S S EL S I М" 
X2975:GOSUB 640:GOSUB 1600: XzXX:CLS 
FS="YOU HAVE DOCKED" 

GOSUB 640:PRINT DK; :F$="VESSELS" 
X=X+4 

GOSUB 6490 :X=XX+64:XX=KkK+64 
Fs="YOU HAVE DESTROYED" 

GOSUB 640:PRINT 0S;:F$=s"VESSELS" 
X=X+3 

GOSUB 640: X=XX+64:XkK=XX+64 
FS="END OF MISSION..." 

GOSUB 640 

END 

REM SOUND ROUTINE 

POKE 31266,А8С(МІр6(Ғ5,1,122%10 
Z=USR(0) 

RETURN 

REM MORE SOUND 

POKE 312466,Z2X:ZzUSR(O0) 

IF PK=1 THEN 1580 

GOTO 960 

IF Ғ(-100 THEN 2Х-:2Х-10 

GOTO 890 

REM FOR MESSAGE LOOP 

FOR Ts1 TO 1200:МЕХТ 

RETURN 
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Variables and Strings 


V - Number of vessels 

DS - Vessels destroyed (counter) 

DK - Vessels docked (counter) 

VL - The beginning value for a random number between 1 and Z. 
This value will increase up to 9 in increments of 1 for each cycle 
(cycle: left to right then back to left) and each time a craft is 
safely docked X,Y, and W — For graphics of tubes (docks) 

F - Fuel amount 

F$ - Contents of different messages, depending on area of flow 

X - Used again for Print @ locations of messages 

Q - Print @ area of F (fuel) 

G - Simple 0/1 true/false variable for messages 

L - Start location of vessel 

V$ - Vessel (asterisk) 

ZX - Used in conjunction with sound output 

PK - For GOTO line definition 

M - Limit of L for asterisk movement 

P - Random selection of VL 

K - For left (R = 0) or right (R=1) movement of vessel 

J - To note if vessel has docked safely (J> = 3) 

Z - For USR call of sound routine 


Explanation of the Program Lines 


Lines 10-400 display the general playing instructions. 

Line 420 initializes several of the variables. 

Lines 430-590 display the graphics for the tubes (ports) in 
which each vessel must dock. 

Lines 600-620 set the amount of fuel and one of the messages 
for F$. 

Lines 630-690 print the different messages in F$. If G is equal 
to 1, lines 630 or 640 through lines 630-670 are being used as from 
another part of the program. 

Lines 700-890 form the main part of the program. Movement of 
the asterisks will continue left to right and then right to left until the 
VAL of X$ is equal to P, or all of the fuel is exhausted. 

Lines 900-970 move the vessel upward until the condition at 
960 is met. 

Line 990 tests the value of J. If it is less than or equal to 2 the 
vessel is considered destroyed. 

Lines 1000-1250 print the appropriate message indicating the 
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status of the vessel, advance the counters, and continue the program 
if Vl. 

Lines 1300-1420 display messages indicating the number of 
vessels docked and/or destroyed and then terminate the program. 

Lines 1500-1590 is the routine for the sound output used when 
the status messages are displayed. 

Lines 1600-1620 form a time loop (pause) between appropriate 
messages. 
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MOVE LEFT 


RAIN Or TERROR 

From the sky bombs will fall on your exact location. You will 
use the left and right arrow keys to move out of the path of destruc- 
tion, but you will have to be fast! Keep an eye on the POINTS 
BEFORE HIT message to obtain the highest score before termina- 
tion. Your score depends on when you move out of the path of the 
bomb. The longer you wait, the higher your score. Remember to 
use the proper value for SL in line 30. Refer to page 3. Note that the 
IBM version of this program is included in Appendix A, and the 
Apple version in Appendix B. 


Sample Run 


«RAIN OF TERROR#*« 
INSTRUCTIONS (Y/N)? YES 


YOU WILL BE BOMBARDED FROM THE 
SKY, BY FALLING BOMBS. ALL YOU 
NEED DO TO STAY ALIVE IS TO 

USE THE LEFT ARROW AND THE 
RIGHT ARROW KEYS TO GET 

OUT OF THE WAY. 

IT SOUNDS VERY 

SIMPLE, BUT YOU MUST BE FAST! 


PRESS A KEY TO BEGIN 


190 


INSTRUCTIONS 


MOVEMENT OF 
BOMB 4- SIGN 


DESTROYED 


Б 


CLOSING 
MESSAGE 


Flowchart for Rain of Terror. 
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Program Listing 


10 REM PROGRAM TITLE: RAIN OF TERROR 

20 CLEAR 200: RANDOM 

30 CLS:PRINT:$Lz31266 

40 PRINT"*** RAIN OF TERROR www" 

50 PRINT:X$zSTRING$(63,32) 

60 INPUT"INSTRUCTIONS (Y/N)",;AÀS$ 

70 IF A$="N" THEN 190 

80 PRINT"YOU VILL BE BOMBARDED FROM THE" 
90 PRINT"SKY, BY FALLING BOMBS. ALL YOU" 
100 PRINT"NEED DO TO STAY ALIVE IS TO" 

110 PRINT"USE THE LEFT ARROW AND THE" 

120 PRINT"RIGHT ARROW KEYS, TO GET" 

130 PRINT"OUT FROM UNDER THE FALLING BOMBS." 
140 PRINT"IT ALL SOUNDS VERY" 

150 PRINT"SIMPLE, BUT YOU MUST BE FAST !!" 
160 PRINT 

170 PRINT"PRESS A KEY TO BEGIN" 

180 ASSINKEYS:IF А5-"" THEN 180 

190 CLS 
200 REM BORDER / MESSAGES 
210 PRINT@O,STRINGS (63,191); 
220 I$=CHR$(143):GOSUB 510 
230 R=0:REM POINTS 
240 P64 °PP=P+62:U=P+896 : ЧУ=Ч: UW=U+61 : КК= 0 


250 PRINT@P,"+";:PRINT@U,"  ";:PzP«2 
260 UsU«2:PRINTGP-2," ";:PRINTGU,IS$; 
220 IF P)=PP THEN PRINTGU," ";:GOTO 240 


280 POKE SL,40:D-sUSR(0): PXzRND( 127) 
290 IF РХ<-63 THEN 280 

300 IF ABS(P-PX)<=8 THEN 320 

310 GOTO 250 

320 REM А DROP 

330 PL=P 

340 PRINTGP,"*";:PzP«64 

350 PRINTGP-64," "gd 

360 IF POPL«89?6 THEN 410 

370 K=PEEK(14440):IF K=32 THEN 420 
380 IF K=64 THEN 470 

390 R=R+25:RR=RR+25 : PRINT @18,RR;:PRINT@55,R; 
400 IF Р-У THEN 550 ELSE GOTO 340 
410 PRINT @960,X$;:P=PL:RR=0:GOTO 
420 PRINTGU," "; 

430 UzU-Z 

440 IF U«(«UV THEN 480 

450 PRINTGU,IS; 

460 U=PL+896:GOTO 340 
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470 PRINT@U," "; 

480 U=U+2 

490 IF U>=UW THEN U=UV 

500 GOTO 450 

510 REM MESSAGES 

320 PRINTGO,"POINTS BEFORE HIT"; 

330 PRINT@40,"TOTAL POINTS"; 

940 RETURN 

950 REM BOMBED 

960 R=R-RR: РКІМТӨ55, А; : PRINT@960,X$; 
970 IF U<¢=962 THEN Ч=0+3 

980 IF U>=1020 THEN U=U-4 

970 U1=U-é4:U2=U1-1:U3=U1+1:U4=1 

600 PRINTGU,"'x'; 

605 POKE SL,200:D=USR(0) 

610 PRINT QGU1,"*";:PRINTGU2,"x"'; 

615 POKE SL,230:D=USR(0> 

620 PRINTGUS3,"x"'; 

625 POKE SL,240:D=USR(0) 

630 FOR T=1 ТО 200:NEXT:U4zU4^«1 

640 PRINTGU," ",;:PRINTGU2,STRING$(10,32); 
650 IF ABS(U-U12»2256 THEN 670 

660 U1l=U1~69:U2=U1-U4:U3=U1+U4:GOTO 600 
670 REM GONE 

680 FOR Tz1 TO 1000:NEXT 

690 CLS 

700 PRINT"YOU HAVE BEEN DESTROYED BY ONE" 
710 PRINT"OF THE FALLING BOMBS. YOUR" 
720 PRINT"TOTAL POINTS ACCRUED BEFORE" 
730 PRINT" YOU WERE DESTROYED WERE:";R 
740 PRINT: FOR Т-і TO 1000:NEXT 

750 A$S$="END OF RAIN OF TERROR." 

760 FOR I=1 TO LENCAS) 

770 PRINT MID$(A$,1,12; :РОКЕ SL,30 

780 D=USR(0) 

790 NEXT 

800 END 


Variables and Strings 


SL - Sound location (machine language routine) 

X$ - For clearing area on video 

I$ - User's mark 

R - Points 

P, PP, U, UV, UW - All used in conjunction with one another for bomb 
location before drop and user's location 

D - USR call for output of sound 
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PX - Used for a bomb drop, if less than or equal to 8 
PL - Length of the drop 

K — User's movement (peek) 

RR - Points before actually hit by bomb 
U1,U2,U3,UA - For explosion of user's mark when hit 
T - Time loop (pause) 


Explanation of the Program Lines 


Lines 10-190 initialize the sound location variable and display 
the general instructions. 

Lines 200-310 initialize more variables and keep the bomb and 
location of the drop moving before a drop. 

Lines 320-540 drop a bomb on the user's location, determine 
the user's location (if any), increase the score until the hit occurs, 
and determine the total score. W P= U (line 400), the user is 
destroyed. 

Lines 550-660 display the explosion of the user's mark when it 
is hit by a bomb. 

Lines 670-800 display the user's total number of points ob- 
tained before the mark was destroyed. 
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ШІНШІ 


YOU MISSED 


— —— —— - алаа аат. 


KNIGHTS 


You've been hired by the king to destroy some knights that have 
escaped from the dungeon and gone into a castle. You are a 
sharpshooter, but it won't be that easy. The knights have captured 
some hostages, so think before you fire into that open window; you 
could shoot a hostage. If you destroy all of the hostages, the king 
will have your head! Note that the IBM version of this program is 
included in Appendix A, and the Apple version in Appendix B. 


Sample Run 


>>>>KNIGHTS< <<< 
INSTRUCTIONS NEEDED? YES 


THERE ARE 10 KNIGHTS IN A CASTLE. 
THERE ARE KNIGHTS THAT HAVE DONE 
WRONG AND WERE IN A DUNGEON 
WAITING TO HAVE THEIR HEADS 
REMOVED. THEY HAVE BROKEN OUT OF 
THE DUNGEON AND GONE INTO A 
CASTLE. ALONG WITH THEM ARE 

8 HOSTAGES. THE KING 

WILL NOT MEET TO THE CONDITIONS 
THEY HAVE SET, SO THEY'RE 

GOING TO STAY UNTIL THE END... 
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—-.—— 


CONTINUE LOOP 


Flowchart for Knights. 
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4 


2. x 
i | 


START 


PRINT 
INSTRUCTIONS 


SET 
VARIABLES 


1 d 


MAKE A 
CASTLE 


j 
ПП 
= 


RANDOM WINDOW 


PLACE FIGURE 
IN WINDOW 


OUTPUT MESSAGE 


THAT APPLIES 


TEST ALL 
ARGUMENTS 


Q 


OUTPUT CLOSING 
MESSAGE 


STOP 


< 


YOU HAVE 9 ARROWS TO FIRE. 


PRESS ENTER TO RESUME? 


YOU ARE THE SHARPSHOOTER SELECTED 
BY THE KING TO TERMINATE EACH 

OF THESE KNIGHTS. YOU ARE 
EQUIPPED WITH A HIGH-POWER CROSS- 
BOW. ALONG THE CASTLE WALLS ARE 
FIVE WINDOWS. EACH TIME A FIGURE 
APPEARS AT A WINDOW YOU'LL HAVE 
THE OPTION OF WHETHER OR 

NOT TO FIRE (BY HITTING 

THE SPACE BAR). THE 

FIGURE THAT APPEARS AT A WINDOW 
COULD BE ONE OF THE HOSTAGES. 

IF IT IS A KNIGHT AND YOU DON'T 

FIRE, YOU COULD BE HIT... 


PRESS ENTER TO BEGIN? 


Program Listing 


10 REM PROGRAM TITLE: KNIGHTS 

20 CLEAR 700 

30 CLS:RANDOM 

40 PRINT")))) KNIGHTS (««(" 

30 PRINT 

60 PRINT"INSTRUCTIONS NEEDED"; 
70 INPUT T$ 

80 IF T$z"N" OR T$-"NO" THEN 370 
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90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
390 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
930 
540 
390 
560 
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PRINT"THERE ARE 10 KNIGHTS IN А CASTLE" 
PRINT"THESE ARE KNIGHTS THAT HAVE DONE" 
PRINT"WRONG AND WERE IN A DUNGEON" 
PRINT"WAITING TO HAVE THEIR HEADS" 
PRINT"REMOVED. THEY HAVE BROKEN OUT OF" 
PRINT"THE DUNGEON AND GONE INTO А" 
PRINT"CASTLE TAKING EIGHT HOSTAGES" 
PRINT"WITH THEM. THE KING WILL" 
PRINT"NOT AGREE TO THE CONDITIONS" 
PRINT"THEY HAVE SET DOWN, SO THEY'RE" 
PRINT"GOING TO STAY 'TIL THE END..." 
PRINT:INPUT"PRESS ENTER TO RESUME";T$ 
PRINTG0,CHR$(30) 

PRINT"YOU ARE THE SHARPSHOOTER SELECTED" 
PRINT"BY THE KING TO TERMINATE EACH" 
PRINT"OF THESE KNIGHTS. YOU ARE" 
PRIMT"EQUIPPED WITH A HIGH-POWER CROSS-" 
PRINT"BOW. ALONG THE CASTLE WALLS ARE" 
PRINT"FIVE VINDOWS. EACH TIME À FIGURE" 
PRINT"APPEARS AT A WINDOW YOU'LL HAVE" 
PRINT"THE OPTION OF WHETHER OR NOT TO FIRE" 
PRINT"(BY HITTING THE SPACE BAR). THE" 
PRINT"FIGURE THAT APPEARS AT А WINDOW" 
PRINT"COULD BE ONE OF THE HOSTAGES." 
PRINT"IF IT IS A KNIGHT AND YOU DON'T" 
PRINT"FIRE, YOU COULD BE HIT..." 

PRINT 

INPUT"PRESS ENTER TO BEGIN";T$ 
CLS:Kz10:HDz8: CRz10 

REM MAKE À CASTLE 

C$:STRING$(62,191) 

А-320 

РНІМТӨА,С5; 

IF A»2768 THEN 440 

A=A+64:GOTO 410 

REM TOP OF CASTLE 
A=256:C$=CHR$(183)+CHRS(187) 
PRINTGA,C$; 

А= А+ 4 

IF АУ =320 THEN 500 

GOTO 460 

REM NOV FIVE WINDOWS 
CS=STRING$(5,32):J=1 

AzA+72:XX=19 

PRINT@A,C$; :PRINT@A+64,C$; 

ACJ) =А+65:7Ј=Ј7Ј+1 

IF A>=432 THEN 570 

A=A+10:GOTO 530 


970 
580 
590 
600 
610 
620 
630 
640 
630 
660 
670 
680 
670 
700 
710 
720 
730 
740 
730 
760 
762 
763 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
300 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 


REM FIGURE 

F$=CHR$(182)+CHR5 (143)+CHR50185) 
REM GET А WINDOW 

W=RND(§) 

WI=A (W) 

REM PAUSE BEFORE PLACING 
PA=RND(700):IF PA(=250 THEN é30 
FOR PU=1 TO 700 

IF PU=PA THEN 670 

NEXT:GOTO 630 

PRINTGWI,F$; 

REM SHARPSHOOTER TO FIRE 

FOR TI=1 TO 100 

WS=INKEYS 

IF W$(»"" THEN 730 

NEXT 

REM KNIGHT OR HOSTAGE 
Hi=RND(5):H2=RND(5) :-H3=RND(5) 
H=ABS(H1-H2-H3) 
PRINTGWI,STRING$(3,32); 

IF H=W THEN 1240 

IF HD(z0 THEN 840 

IF Héz0 OR Ң)=5 AND TI(-99 THEN 790 
GOTO 840 

REM A HOSTAGE 

РКІМТӨ0,;:ІҒ ТІ)-75 THEN 880 
PRINT"YOU HAVE JUST KILLED ONE" 
PRINT"OF THE HOSTAGES, TURKEY !!" 
GOTO 970 

PRINTG0,,:IF TI)=100 THEN 880 
PRINT"GOOD SHOOTING, YOU HAVE" 
PRINT"KILLED ANOTHER KNIGHT." 

GOTO 940 

PRINT80,;:IF Н)-0 AND Н‹=2 THEN 1020 
PRINT"THINK FASTER !! YOU HAVE BEEN" 
PRINT"HIT BY ONE OF THE KNIGHTS !!" 
HK=HK +1 

IF НК) =6 THEN 1060 

GOTO 990 

K=K-1:PRINT К; "KNIGHTS REMAIN." 

IF K¢=0 THEN 1120 

GOTO 990 

HDzHD-1 

IF HD(z0 THEN 1180 

FOR TX=1 TO 1500:МЕХТ 

REM CLEAR PRINT AREA 
PRINT@0,STRING$(255,32);:GOTO 1400 
IF НЮ ‹=0 THEN 890 
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1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1245 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1350 
1360 
1370 
1380 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
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PRINT"GOOD THING YOU DID NOT FIRE" 
PRINT"THAT WAS А HOSTAGE !!" 

GOTO 990 

REM HIT ENOUGH 

PRINTED, ; 


PRINT"YOU HAVE BEEN HIT";HK;"TIMES. 


PRINT"YOUR BODY CANNOT STAND" 
PRINT"ANYMORE. YOU ARE DYING..... T 
GOTO 1530 

REM KNIGHTS OMITTED 

PRINT@O, ; 

PRINT" YOU HAVE KILLED ALL 10" 
PRINT"KNIGHTS THE KING WILL BE" 
PRINT"PROUD OF YOU MY FRIEND....." 
GOTO 1530 

REM HOSTAGES GONE 

PRINT@O, ; 

PRINT"YOU HAVE KILLED ALL OF THE" 
PRINT"HOSTAGES...YOU TURKEY !!" 
PRINT"THE KING VILL HAVE YOUR HEAD 
GOTO 990 

REM COMPLETE MISS 

IF ТІ)=100 THEN 765 

XXzRND(122) 

IF XX(22 THEN 1260 

YY=RND(35) 

IF YY(=17 THEN 1270 

RESET(XZ,YY) 

PRINT@O, ; 

PRINT"YOU'LL HAVE TO DO BETTER" 
PRINT"THAN THAT, YOU'VE MISSED !!" 
GOTO 990 

REM CROSSBOW ROUNDS 

PRINT@910, ; 


гі! 
= > 


PRINT" YOU НАУЕ"; СЕ; "ARROWS TO FIRE." 


RETURN 

REM ENOUGH ARROWS LEFT 

IF TI¢=99 THEN CR=CR-1 

GOSUB 1330:IF CR(-0 THEN 1440 
GOTO 590 

REM END 

FOR ТХ-1 TO 2000:МЕХТ 

CLS 

PRINT" YOU HAVE EXHAUSTED YOUR" 
PRINT"SUPPLY OF CROSSBOW ARROWS." 
IF К<20 THEN 1510 

GOTO 1530 

PRINT"THERE ARE STILL";K; "KNIGHTS" 


1520 PRINT"IN THE CASTLE....." 

1330 PRINT 

1540 IF Нр‹=0 THEN 1560 

1850 GOTO 1600 

1560 PRINT"YQU ARE А BLUNDERING SHARP-" 
1570 PRINT"SHOOTER, YOU IDIOT !!" 
1580 PRINT"YOU HAVE HIT AND KILLED " 
1590 PRINT"THE 8 HOSTAGES !!!" 

1600 PRINT 

1610 PRINT"END OF RUN." 

1620 END 


Variables and Strings 


K - Number of knights 

HD - Total number of hostages 

CR - Total arrows 

C$ - CHR$ for castle and windows 

A - Print @ location for structure of castle 

AG) - Locations of windows (5) 

W - Random window selection 

WI - Window select, A(W) 

PA - Pause before placing figure in selected window 

W$ - INKEYS to fire at figure 

HLH2,H3,H - Used to determine if the figure was a hostage 
TI - Time loop for the length of time figure will appear in window 
HK - Counter user hit by knight 

XX, XY - Used to reset an area of the castle for a user miss 


Explanation of the Program Lines 

Lines 10-360 display the general operating instructions. 

Line 370 initializes 3 variables. 

Lines 380-560 display a castle and set the 5 window locations 
to the subscripted variable A(J). 

Lines 570-580 establish the figure that will appear in a window. 

Lines 590-610 select (randomly) which one of the five windows 
the figure will appear in. 

Lines 620-660 establish a random-length pause determined by 
the variable PA, before the figure is printed. 

Lines 680-720 use the INKEY$ function for the user to fire 
upon the figure. 

Lines 730-750 use variables to determine whether figure was a 
hostage or a knight. 

Line 760 clears the figure from the window. 
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Line 762 determines whether or not the shot missed com- 
pletely. 

Line 765 sends program control to line 840 where a knight 
eliminated if Tl< = 99. 

Line 770 determines whether or not a hostage hit, if Tl< = 99. 

Line 780 is the same as line 762 and is used if previous 
conditions were not met. 

Lines 790-830 display the hostage killed message. 

Lines 840-870 display the knight killed message. 

Lines 880-930 indicate that the user has been hit by a knight. If 
the user receives at least 6 hits, he or she will be declared dead (line 
920). 

Lines 940-960 display a message indicating how many knights 
remain. If К< = 0 all knights have been eliminated. 

Line 950 sends program control to line 1120 if all the knights 
are dead. 

Lines 970-980 are accessed when a hostage is killed. If all 
hostages are killed, the king will have the user's head (line 980). 

Lines 990-1010 form a delay loop and clear the print messages. 

Lines 1020-1050 print a message indicating that a hostage was 
in window. 

Lines 1060-1110 display the message that the user is dying. 

Lines 1120-1170 display the message that all the knights have 
been killed. 

Lines 1180-1230 display the message that all the hostages have 
been killed, but the program continues so that the user can finish off 
the knights. 

Lines 1240-1330 are used when the user misses completely. 
Message is displayed, and an area of the castle is reset to show what 
area was hit. 

Lines 1350-1380 display a message that indicates how many 
arrows remain. 

Lines 1400-1430 test the number of arrows remaining. If there 
aren't any, the program is terminated. 

Lines 1440-1620 terminate the program and display the ap- 
propriate messages. 
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Games to Keep You 
Alert or Put You to Sleep 


Triangle is a game of chance that tests your luck in avoiding landing 
on the spot chosen by the computer. 

Mind Invasion forces you to move quickly to avoid being 
crushed. 

Trapped challenges you to trap the computer's piece. Watch 
out—it can burn you. 

Elevator tests your memory. Can you get all the customers to 
the floors they want to go to? 

Farewell offers a merciful death. All you must do is land on 
the spot where the cobra is hiding. To win you must land on the spot 
indicated by a quick flash. 

Insomnia will put you to sleep. All you have to dois watch the 
screen. 

Rainy Daze puts your attention span on trial. How long can 
you concentrate on the numbers on the screen? 
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YOU'RE OUT OF THE GAME 


TRIANGLE 


Moving around in a triangle. You and two other people will try tc 
avoid landing on the spot selected by the computer. There is a way 
to come out the victor almost every time. That is all I will tell you; 
you'll have to figure out how yourself. Don't get your arms tangled 
with the other two players during the trips around the triangle! 
Refer to pages 1-3 for information on the sound routine. 


Sample Run 


... TRIANGLE... 


OUTLINE FOR PLAY?YES 

THIS PROGRAM REQUIRES 3 PLAYERS. 
THE COMPUTER WILL SELECT A LOCATION 
AT THE START OF THE PLAY. EACH 
PLAYER IN TURN WILL ENTER 

A NUMBER FROM 1 TO 9. THE MOVE 
AROUND THE TRIANGLE WILL 

BEGIN. IF AT ANYTIME A PLAYER 
LANDS ON THE SPOT THE COMPUTER 
HAS CHOSEN, THAT PLAYER WILL BE 
ELIMINATED FROM THE GAME. 


PRESS A KEY... 
THIS WILL CONTINUE UNTIL THERE 
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PRINT 
INSTRUCTIONS 


FIRST NAMES 
3 PLAYERS 


COMPUTER 
SELECTS FIRST 
PLAYER 


GRAPHICS 


INPUT 
PLAYER AMOUNT 


MOVE CHARACTER 
PER AMOUNT 


OUTPUT 


Flowchart for Triangle. 
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THIANGLE 


IS ONLY ONE PLAYER LEFT, THE 
WINNER. THINK BEFORE YOU ENTER A 
NUMBER AND KEEP YOUR EYE 

ON THE OPPONENT. 

3 FIRST NAMES, PLEASE. 


Program Listing 


10 REM PROGRAM TITLE: TRIANGLE 

20 REM REQUIRES THREE PLAYERS 

30 CLS 

40 PRINT"...TRiANGLE |." 

20 PRINT 

60 INPUT"OUTLINE FOR PLAY";X6$ 

70 IF MID$(X$,2,1) (OO "E" THEN 240 

80 PRINT"THIS PROGRAM REQUIRES 3 PLAYERS." 
90 PRINT"EACH PLAYER WILL TRY TO EVADE" 
100 PRINT"THE OTHER, ІМ А NEVER ENDING" 

110 PRINT'TRIANGLE. MORE LIKE A CHASE," 

120 PRINT"THE SECOND PLAYER WILL MOVE" 

130 PRINT"AROUND THE TRIANGLE, SEARCHING" 
140 PRINT"FOR THE FIRST AND THIRD. THE THIRD" 
190 PRINT"PLAYER VILL SEARCH FOR THE SECOND" 
160 PRINT"OR FIRST. THEN THE FIRST VILL" 

170 PRINT"SEARCH FOR THE SECOND OR THIRD..." 
180 PRINT"!!! W H E W t!!!" 

170 GOSUB 1000:CLS 
200 PRINT"THIS VILL CONTINUE UNTIL ONLY ONE" 
210 PRINT"PLAYER IS LEFT, THAT PLAYER WILL" 
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220 PRINT"BE THE WINNER. MOVE AMOUNTS WILL" 
230 PRINT"RANGE FROM 1 THROUGH 9. ENTER NOW" 
240 PRINT"THE THREE PLAYERS FIRST NAMES"; 
290 FOR І-1703 

260 INPUT N$(1I):NEXT: Yz2 

270 PRINT’ FIRST PLAYER SELECTION..." 

280 FOR І-17010:1(1)-І:МЕХТ:ҒОН T=1TO1000 
290 NEXT:R=1:GOSUB 1400:A=RND(3) 

300 IF А-1 THEN 360 

310 IF A=2 THEN 340 

320 N$(0)zN5(3).FOR T=ATO1 STEP-1 

330 NS$(TO)zN$(Y):YzY-1:NEXT:GOTO 350 

340 N$(0)zN9$(2)2) :N$(22zN$(32:N9$ (3) NS (1) 
350 М5(1)-М6(0) 

360 I=1:RANDOM 

370 РНІМТ"ТНЕ FIRST PLAYER IS: ",;N5(I) 

380 PRINT 

390 GOSUB 1000:CLS 

400 REM GRAPHICS WITH SOUND 

410 POKE 16926,0:POKE 16527,122 

420 М=897 

430 PRINT@W,CHR$(143); 

440 POKE 31265,30:POKE 31266,100: X=USR (0) 
450 IF М) =958 THEN 470 

460 W=W+1:GOTO 430 

470 PRINT@923," TRIANGLE ";:М-2:М-124:0-41 
480 SET(M,Q@) .SET(M+1,Q):SET(N,Q) : SET(N«1,0D 
490 POKE 31265,30:РОКЕ 31256,N:XzUSR(0) 
500 M=M+2:N=N-2:Q=Q-1 

310 IF ABS(M-Q)=54 THEN 530 

920 GOTO 480 

330 NS$zN$CIO):PRINT80,N$;" YOUR LOCATION... "; 
940 Ғ-0:ІҒ P=1 THEN 560 

5350 J=863:REM MOVEMENT TO LEFT 

560 PRINTGJ,CHR$(143); 

970 IF Ғ(23 THEN 590 

980 GOTO 630 

990 F=F+1 

600 POKE 31265,30:РОКЕ 31256,200:X-USR(0) 
610 FOR TzITO100.NEXT:PRINTGJ,CHR$(32); 
620 FOR Т-170125:МЕХТ:60Т0 560 

630 REM ENTRY AMOUNT 

640 PRINT@0,; :NNz220 

690 PRINT М5;" ENTER À NUMBER?" ; 

660 GOSUB 1010: AZVAL(X$)2:K«0:GOSUB 990 

670 IF К<) А THEN 690 

880 GOTO ?40 

890 GOSUB 1100 
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700 
710 
720 
730 
735 
740 
730 
760 
770 
780 
790 
900 
910 
920 
930 
940 
945 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1100 
1110 
1120 
1130 
1140 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1335 
1340 
1345 
1350 


J=J-1:GOSUB 1130 
IF D=1 THEN GOSUB ?20:GOTO 740 


IF 25-837 THEN GOSUB 700 


IF J=350 THEN GOSUB 1100:GOTO 780 
IF 27-352 THEN GOSUB 1100.GOTO 780 


IF J=889 THEN D=0:NN=220 


K=K+1:GOTO 1200 
POKE 31265,30:POKE 31266,NN: Х= 05КЕ (0) 
6070670 
J=J+3:D=1 
GOTO 740 
GOSUB 1100 
J=(J-64)+4 NNZNN-2:GOSUB 1130: RETURN 
GOSUB 1100 
J=J+68:NN=NN+2:GOSUB 1130: RETURN 
REM PLAYER ADVANCE / DELETE 
PRINTG(O*LEN(CN$2416)," 
J(I)=J:D(I)=D:I=I+1:GOSUB 1100 
IF 1)=4 THEN I=1:P=1 
IF P=1 THEN Js=sJ(I):D=D(I) 
IF N$(I)="" THEN 950 ELSE GOTO 530 
PRINT@(0+LEN(N$)4+16),A; : RETURN 


PRINT"PRESS A KEY 


I. 
4 


X$=INKEYš IF X$z"" THEN 1010 
RETURN 
REM CLEAR CHARACTER BEFORE MOVEMENT 


PRINTGJ,CHR$(32), 


RETURN 
PRINTGJ,CHR$(143), 
RETURN 


REM DROP А PLAYER 


IF 
IF 
LE 
IE 
IF 


IF Us3 THEN 
IF Vez THEN 
IF Uz1 THEN 


ісі THEN 1250 
1=2 THEN 1240 
OR JaJ(I-1) THEN 


JjzJ(CI-2) 
JzJCI-1) 


OR Jz 
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Ј(1+1) 


THEN 


JsJ(1+1) OR JsJCI«2) THEN 
GOTO 760 
IF ОО, OR KA THEN 1260 
REM PLAYER DELETED 


GOTO 1260 


IF 
IF 
IF 
LE 
IF 


J=J(I-2) 
J=J(I-1) 
J=J(I-1) 
J=J(I+Í) 
J=J(I+l) 


1330 
1340 
1350 


THEN 
THEN 
THEN 
THEN 
THEN 


МХг1-2: 
МХ=1-1: 
МХ=1-1: 
МХ= 1+1: 
МХ = 1+1: 


GOTO 
GOTO 
GOTO 
GOTO 
GOTO 


UzI:GOTO 1270 
UzI:GOTO 1270 
UzI:GOTO 1270 


1360 
1360 
1360 
1360 
1360 
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1355 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 


IF J=J(I+2) THEN NZ=I+2:GOTO 1360 
PRINT864,, 


PRINT"PLAYER ELIMINATED..." ;N$(NX),;" " 
NS(NX)="": FT=30:FF=3:GOSUB 1580 
GOTO 1500 


REM LOCATION SELECT 

IF R?z2 THEN 1430 

FOR W=1TO10:READ L(W):NEXT 

LzRND(10) 

IF L(L)=0 THEN 1430 

LzL(L):RETURN 

DATA 850,889,822,716,688 

DATA 621,594,472,420,411 

REM DELETE AND SELECT 

REM ANOTHER LOCATION 

L(R)=0:R=R+1 

IF R=3 THEN FF=10:FT=1:GOTO 1570 
GOSUB 1400 

J(NX)z0:FOR Т-1701000:МЕХТ 

GOTO 940 

GOSUB 1380:GOTO 1640:REM WINNER 
Àz150:FOR I=1TO3:AC(I)=A 

A=A+90: NEXT: F=0 

FOR Iz1TO3 

POKE 31265,30:POKE 31266,А(1) -РТ:Х=088(0) 
NEXT 

IF FO FF THEN F=F+1:GOTO 1600 ELSE RETURN 
PRINT@128, ; 

PRINT"THE CHAMP IS... ."; 

IF N$(1) 0 "" PRINT N$(1):GOTO 1690 

IF N$(22 ( "" PRINT N$(2):GOTO 1690 

IF №03) ()"" PRINT N$(3) 

FOR Т-1701200:МЕХТ 

CLS 

INPUT"READY TO TRY ANOTHER TRIANGLE";Z5 
IF Z$0"Y" AND Z$O"YES" THEN 1750 
CLS:FOR Is1TO3:J( 1) 0: NEXT: P=0 
RESTORE:GOTO 240 

PRINT 

PRINT"END OF TRIANGLE. ... .":F=0 

POKE 31265,30:РОКЕ 31266,120: X-USR(0) 
IF Е(215 THEN F=F+1:GOTO 1770 

END 


Variables and Strings 


N$(I) - Players’ names 
L(D,L - Selection of one location by the computer 
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W - Triangle graphics 

J - Character position of current player 

NN - For sound output (machine program) 

A - User move number (value of Х%) 

K - Value of the distance from the start position to stop 
D - For direction of character (around inside of triangle) 
10) - For advance or elimination of a player 

U - Player eliminated 

F - Variable for sound output 


Explanation of the Program Lines 


Lines 10-230 display the general operating instructions. 

Lines 240-280 request the three players' first names. 

Lines 290-350 select the first player. 

Lines 360-520 indicate who the first player is, display the 
triangle, and establish the sound routine. 

Lines 530-620 keep track ofthe current player's location within 
the triangle. 

Lines 630-690 accept the player's move. 

Lines 700-930 move the player's character in the correct di- 
rection and keep it within the triangle. 

Lines 940-1020 either advance or eliminate the player. 

Lines 1100-1140 clear the character before movement. 

Lines 1200-1390 eliminate a player if that player has landed on 
a computer selected location. 

Lines 1400-1560 read the data for all the locations within 
triangle and then select one location. 

Lines 1570-1790 print the winner's name and allows the users 
to try again. 
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MIND INVASION 


The computer will try to invade your mind with as many moving 
graphics as possible. What you must do is move out of the way of the 
two blocks before they meet in the middle of the video and squash 
you. To gain any points at all, you must be constantly moving up or 
down. This motion is achieved by using the up and down arrows, of 
course. Note that the IBM version of this program is included in 
Appendix А, and the Apple version in Appendix B. 


Sample Run 


MIND INVASION 


NUMBER OF PLAYERS? 5 
PLAY OUTLINE NECESSARY? YES 
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EACH OF YOU 5 PLAYERS WILL 
EXPERIENCE A NEW FORM OF MIND 
INVASION. THE OBJECT OF THE GAME: 
KEEP PLAYING AS LONG AS POSSIBLE 
WITHOUT GETTING CRUSHED. 

YOU, THE USER WILL BE LOCATED AT 
THE CENTER OF THE VIDEO DISPLAY 
IN THE FORM OF A '+' SIGN. YOUR 
ONLY MOVEMENTS WILL BE STRAIGHT 
UP OR STRAIGHT DOWN, ACCOMPLISHED 
WITH THE UP ARROW AND DOWN 
ARROW KEYS. 


PRESS A KEY..... 


TO TAKE ADVANTAGE OF ANY POINTS 
YOU MUST BE CONSTANTLY MOVING 

UP OR DOWN. THE OUTER BOUNDARIES 
OF THE VIDEO WILL CONTAIN 

FLASHING ASTERISKS FOR CONFUSION. 
ALSO CONTAINED IN THOSE BOUNDARIES 
ARE TWO BLOCKS THAT, 

WITHOUT NOTICE, WILL MOVE VERY 
QUICKLY TOWARD THE CENTER TO 
YOUR LOCATION. IF YOU ARE SUCCESS- 
FUL IN MOVING OUT OF THE WAY, 

YOU CAN CONTINUE PLAYING. IF, ON 
THE OTHER HAND, YOU GET SMASHED, 
PLAY WILL ADVANCE TO THE NEXT 
PLAYER. THIS IS ALSO TRUE IF 

COLLIDE INTO THE BLOCKS. 


PRESS А KEY..... 


THE GAME ENDS WHEN EACH 

PLAYER HAS PLAYED A TOTAL OF 2 (TWO) 
ROUNDS. THE PLAYER FINISHING WITH 
THE HIGHEST SCORE WILL BE THE 


ENTER THE 5 PLAYERS 
FIRST NAMES NOW 
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NUMBER 
OF PLAYERS 


=> 


INPUT PLAYERS 
NAMES 


SET VARIABLES 
GRAPHICS 


PRINT PLAYER 
BEGIN PLAY 


pki —— — ra r a чыш 


| | DEDUCT 
E POINT VALUE И 


DOWN 
Y CHARACTER MOVE 


"Up" 
Y CHARACTER MOVE 


DEDUCT ADVANCE 
Y POINT VALUE PLAYEH 


SORT SCORES 
PRINT TOP PLAYER [v 


STOP 


Flowchart for Mind Invasion. 
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PLAYER. Т POINTS - 


Program Listing 


10 

20 

30 

40 

50 

60 

70 

80 

90 
100 
110 
115 
120 
130 
140 
150 
140 
170 
200 
210 
220 
230 
240 
250 
260 
270 
280 
230 
300 
310 


REM PROGRAM TITLE: MIND INVASION 
REM INSTRUCTION ROUTINE 


CLEAR $00:GOSUB 1500:J=1:TR=! 

REM OUTER GRAPHICS 
1219360:Y215423:K 2121: PNz 1: TXsY 4417: TL TX 
POKE X,K:POKE Ү,К;РОКЕ X+10,K:POKE Y-10,K 
і:Х%65.Ү-(Ү%64)-1:/-/7%1 

IF JO INT(OK/22) THEN 60 

REM GOTO CHARACTER PRINT / IF DONE 

IF J=ié THEN N=42:POKE TX,43:GOTO 140 
POKE X,K:POKE Y,K:POKE X+10,K:POKE Y-10,K 
IF PNs1 THEN A(1)=¥:A(2)2Y:LeA(1) : RSAC2) 
Х-(Х%64)-1:Ү-Үғ65 

JeJ+1:PN=2:GOTO 100 

PRINT@1000,"YOUR POINTS ="; 

РІ-0 

GOSUB 910 

PRINT@960,"PLAYER...";N$(PZ); 

REM CHARACTER GRAPHICS VARIABLES 
Ү-7:Ег448:Ғ-505:Т-1:Е2-Е:Ғ2-Ғ:Т6-11:86-907 
KYz1:G242:GOSUB 380:IF TI)>=3 THEN 880 
PRINT@E,W$; :РНІМТӨР,М9;:Е1-Е-64:Ғ1-Ғ»65 
T=T+1:GOSUB 350 

PRINT@E,L$;,:PRINT@F,L$; 

IF T)=2 THEN J=J-1:GOSUB 380:GOSUB 350 
PRINT@E-64,W$; :PRINTGE1,W5$; 
PRINTGF-63,W5$,:PRINTGF1,W5; 
PRINTGE-64,L$; :PRINT8GE1,L5; 
PRINTGF-63,L$; :PRINTGF1,L$;:GOTO 600 
E=E-64:F=F-63 El=E2+128:F1=F2+4130 
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320 E2=E2+64:F2=F2+65:T=T+1 

330 REM RESET VARIABLES IF DONE 

335 GOTO 700 

340 IF Т)-8 THEN 200 ELSE KY=KY+1:GOTO 260 
350 REM FOR CHARACTER CLEAR 

360 LS=STRINGS$(J,32) :Q$=STRINGS(G, 42) 
370 G1$STRING$(G,32) : RETURN 

380 WS=STRINGS(J,N) 

390 RETURN 

400 Х5-ІМКЕҮ%:КЕМ USER MOVEMENT | 
405 TISTI«1:REM LIMIT COUNT WITHOUT MOVEMENT 
410 IF X$="" THEN 340 

420 TIZ1:REM PLACEMENT / LIMIT / RESET 
430 IF ASC(X$)=10 THEN 460 

440 IF ASC(X$)=91 THEN 490 

490 GOTO 340 

460 POKE TX,32:TX=TX+64 

470 IF ABS(TX-TL)>=128 THEN ТХ-7Т7Х-64 
480 POKE ТХ,43:/(КҮ)-А5С(Х9):00Т0 340 
490 POKE TX,32:TX=TX-64 

500 IF АВ5(ТХ-ТІ)2-128 THEN TXsTX«64 
810 POKE ТХ,43:/(КҮ)-А5С(Х%):6070 340 
600 REM ТОР / BOTTOM CHARACTERS 

610 PRINT@TC ,Q$, 

620 PRINTeBC,üQ$, 

630 PRINT@TC,Q1$,; 

640 PRINT@BC,QI1$, 

650 TCzTC«65:BCzBC-63:626-2 

660 REM REPLACE USER CHARCTER 


670 IF PEEK(TX)232 THEN POKE TX,43 
680 GOTO 310 


700 REM CRUSHER MOVEMENT 

705 POKE А(1)+10,32.РОКЕ A(2)-10,32 

710 POKE L,32:POKE R,32 

720 IF ABS(L-R)=1 THEN 750 

730 L=L+8:R=R-8 

740 POKE L,K:POKE R,K:GOTO 400 

750 L=A(1):R=A(2):GOTO 800 

760 POKE L,K:POKE L+10,K 

770 POKE R,K:POKE R-10,K 

780 REM RECYCLE 

790 GOTO 400 

800 REM CRUSHED ? 

810 IF PEEK(TX)=32 THEN 840 

820 IF TI(=2 AND U(KY)()U(KY-1) THEN PI=PI+ABS 
(TX-TL):GOSUB 910 

830 GOTO 760 

840 REM YES. ...CRUSHED 
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850 PRINTG960,"( C RU S H E D >>"; 
860 POKE TX,32 

870 FOR LX¥=1TO2000:NEXT:GOTO 950 

880 REM LIMIT REACHED / NO MOVEMENT 
890 ТІ-0 

900 PI=PI-ABS(TL-TX):GOSUB ?10:GOTO 920 
910 PRINT@1014,PI; RETURN 

920 GOTO 230 

950 REM PLAYER ADVANCE / END 

960 TP(PZ)=PI:PI=0:PZ=PZ+1 

970 IF РТУ РІ THEN GOSUB 1200:TR=TR+1:PZ=1 
980 IF TR)=3 THEN GOSUB 1240:GOTO 1010 
990 FOR І.Х-1Т014:РНІМТ:МЕХТ 

1000 GOSUB 2100:CLS:J=1:GOTO 40 

1010 REM END / HIGH POINT VINNER 

1020 Т=0:Н=1:ІР H=PL THEN 1120 

1030 IF FT(H))=FT(H+1) THEN 1080 

1040 FT=FT(H):FT(H)=FT(H+1) 

1050 FICH+1)=FT:N$=N$(H) : NS CH) = № (Н+) 
1060 М (Н+1) = №5 

1070 T=1 

1080 H=H+1 

1090 IF H< PL THEN 1030 

1100 IF T=1 THEN 1020:REM NOT REFINED 
1110 GOTO1300 

1120 CLS 

1130 PRINT 

1140 PRINT"YOUR TOTAL POINTS, AFTER 2" 
1150 PRINT"ROUNDS =",TP(H)+WECH) 

1160 GOTO 1390 

1200 REM TALLY FIRST ROUND POINTS 

1210 IF TR)=2 RETURN 

1220 FOR I=1TOPL 

1230 WE(I)=TP(I):NEXT:RETURN 

1240 REM FINAL TALLY 

1290 FOR Iz1TOPL 

1260 FTCI)=sWE(1)+TPCI) 

1270 NEXT 

1280 RETURN 

1300 REM TOP VINNER (MORE THAN 1 PLAYER) 
1310 CLS 

1320 Ігі 

1330 PRINT"THE TOP WINNER. ";N$(12;" WITH"; 
1340 PRINT FT(IO;"POINTS." 

1350 PRINT"FOLLOWED BY:" 

1360 FOR Is2TOPL:PRINT N$(12;" WITH", 
1370 PRINT FT(I); "POINTS." 

1380 NEXT 
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1390 PRINT 

1400 PRINT"END OF PROGRAM RUN." 

1410 END 

1900 REM INSTRUCTIONS 

1510 I$="MIND INVASION" 

1520 Iz5:CLS 

1530 FOR LX-zITOLEN(I$) 

1540 РНІМТТАВ(1) MIDS(I$,LX,1); 

1350 FOR Ү=іТО50:МЕХТ Y 

1560 Ігізі:МЕХТ LX 

1570 FOR Ү-1701000:МЕХТ 

1580 PRINT 

1330 INPUT"NUMBER OF PLAYERS (1-10); РІ, 

1600 IF PL¢=0 OR PL)=11 THEN 1590 

1610 PRINT"PLAY OUTLINE NECESSARY"; 

1620 INPUT X$ 

1630 IF &$="N" OR X$="NO" THEN 2040 

1640 PRINT 

1650 PRINT"EACH OF YOU"; FL;"PLAYERS WILL" 
1660 PRINT“ EXPERIENCE A NEW FORM OF MIND" 
1670 PRINT" INVASION. THE OBJECT OF THE САМЕ: " 
1680 PRINT"KEEP PLAYING AS LONG AS POSSIBLE" 
1630 PRINT"VITHOUT GETTING CRUSHED " 

1700 PRINT" YOU, THE USER WILL BE LOCATED AT" 
1710 РКІМТ"ТНЕ CENTER OF THE VIDEO DISPLAY" 
1720 PRINT"IN THE FORM OF A ‘+' SIGN. YOUR" 
1730 PRINT' ONLY MOVEMENTS WILL BE STRAIGHT" 
1740 PRINT"UP OR STRAIGHT DOWN, ACCOMPLISHED" 
1750 PRINT"WITH THE UP ARROW AND DOWN" 

1760 PRINT"ARROW KEYS " 


1770 FRINT 

1780 PRINT"PRESS А KEY... " 

1720 X$=INKEY$: IF X$z"" THEN 1790 
1800 PRINT 


1810 РКІМТ"ТО TAKE ADVANTAGE OF ANY POINTS" 
1820 PRINT"YOU MUST BE CONSTANTLY MOVING," 
1830 PRINT"UP OR DOWN. THE OUTER BOUNDRIES" 
1840 PRINT"OF THE VIDEO VILL CONTAIN" 

1850 PRINT"FLASHING ASTERISKS, FOR CONFUSION. 
1860 PRINT"ALSO CONTAINED IN THOSE BOUNDRIES" 
1870 PRINT"ARE TVO BLOCKS THAT," 

1880 PRINT"VITHOUT NOTICE, WILL MOVE VERY" 
1870 PRINT"QUICKLY TOWARD THE CENTER TO" 

1900 PRINT"YOUR LOCATION. IF YOU ARE SUCCESS-" 
1910 PRINT"FUL IN MOVING OUT OF THE VAY" 

1920 PRINT"YOU CAN CONTINUE PLAYING. IF, ON" 
1725 FOR LX-1TO2000:NEZT 

1930 PRINT"THE OTHER HAND, YOU GET SMASHED" 
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1940 PRINT"PLAY WILL ADVANCE TO THE NEXT" 
1750 PRINT"PLAYER. THiS IS ALSO TRUE IF" 
1955 FRINT"YOU COLLIDE INTO THE BLOCKS." 
1960 FOR 1Х-1762000:МЕХТ 

1970 PRiNT"PRESS A KEY. . .." 

1980 Х5-ІМКЕҮ5:ІҒ X$z"" THEN 1980 ELSE PRINT 
1790 PRINT"THE GAME ENDS WHEN EACH" 

2000 PRINT"PLAYER HAS PLAYED А TOTAL OF TWO" 
2010 PRINT"ROUNDS. THE PLAYER FINISHING WITH" 
2020 PRINT"THE HIGHEST POINTS VILL BE THE" 
2030 PRINT"VINNER....." 

2040 PRINT 

2050 PRINT"NOW ENTER THE";PL;" PLAYERS" 

2060 PRINT"FIRST NAMES" 

2070 FOR islTOPL: INPUT N$CI) 

2080 NEAT 

2090 Р2=1 

2100 PRINT N$(PZ);" WILL NOW PLAY, PRESS" 
2105 IF Р22-2 OR TR)=2 THEN 2150 

2110 PRINT"A KEY WHEN READY..... ' 

2120 X$=INKEY$:iF X$="" THEN 2120 

2130 CLS 

2140 RETURN 

2150 PRINT"THE ENTER KEY WHEN READY"; 

2160 INPUT Xš TI=0Ü RETURN 


Variables and Strings 


X - For the poke graphics for the left side 

Y - For the poke graphics for the right side 

K - Character code for X,Y and above 

PN - Counter to set subscripted variables A(1) and A(2) for block 
start position 

L,R - For left and right movement of blocks 

TX, TL - For user character placement and used to signify character 
area. TX is also for the user character if it 15 crushed. 

PI - Total points for each player 

PZ - Counter for the correct player 

E,F, T, E2,F2 - For the Print @ graphics for the outer areas of the 
display 

TC, BC - For the top center and bottom center graphics 

KY - For key closure counter. Subscripted variable U (U(KY)) will 
insure that before any points are given, the user isn't pressing the 
same direction key repeatedly 

G - A constant used for the number of characters for upper/lower 
graphics 
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TI - Counter for point deduction, user asleep? 
T - For outer, upper and lower Print & graphics 
LX - For time loop 

TP - For total points received by current player 
PZ - Counter for number of players 

TR - Total rounds played 

H - Counter for player 

FT - For players total points after 2 rounds 

WE - Points obtained during first round 


Explanation of the Program Lines 


Line 30 clears 500 bytes of memory for string storage and 
branches to the instructions. 

Lines 40-80 poke the graphic blocks on the left and right sides 
of the video. 

Line 100 insures that all poke graphics have been completed 
and then branches to the start of the game. 

Lines 110-130 continues the poke graphics if they are done. 

Lines 140-170 start the game and print the player's name and 
score. 

Lines 200-340 (and lines 600-680) keep all the graphics mov- 
ing. 

Lines 350-390 establish strings made up of characters or blank 
spaces. 

Lines 400-510 accept the user's up and down character move- 
ment. 

Lines 700-790 move the crusher blocks (left and right) and 
reset them if they coincide. 

Lines 800-870 checks whether or not the user is crushed. If he 
or she has been crushed, play advances to next person. If not, line 
820 tests the current and preceding key closure and the variable TI 
(time limit). If each condition is met the user's score will increase 
by amount at line 950. 

Lines 880-900 deduct an amount from users score if the time 
limit (TI) has been reached. This is to insure that the user's charac- 
ter doesn't remain in one location. 

Lines 910-920 print the player's score and then recycle and 
continue play. 

Lines 950-980 advance to the next player or terminate the 
game if all have played two rounds. 

Lines 990-1000 are used for player advance. 
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Lines 1010-1100 place the scores (and players) in order from 
the highest score to the lowest score. 

Line 1110 is used for the termination of the run. 

Lines 1120-1160 display the score when only one person is 
playing. 

Lines 1200-1230 set the subscripted variable WE to the user's 
first round score. 

Lines 1240-1280 set the subscripted variable FT to the user's 
final score. 

Lines 1300-1410 print the name of the top winner of game and 
then rest of players' names in descending order. 

Lines 1500-2160 are used for the number of players, their 
names and the general instructions. 

Line 2105 tests the variables PZ and TR to determine which 
player is playing. 
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TRAPPED 


You must trap the computer's plece. The drawbacks? The com- 
puter's piece can only be trapped ina left/right movement area. You 
must keep it pinned this way for a certain amount of time. Don't get 
burned by the computer's piece: six burns and you're out! There 
are, of course, other hidden obstacles, which you'll discover soon. 
Refer to pages 1-3 for information on the sound routine. Note that 
the IBM version of this program is included in Appendix A, and the 
Apple version in Appendix D. 


Sample Run 


TRAPPED 
LIST INSTRUCTIONS? YES 


UP TO 10 PLAYERS CAN 
TRY TO OUTWIT THE COMPUTER AND 
MANEUVER ITS PIECE INTO A SITUATION 
WHERE IT WILL BECOME TRAPPED. 

THE COMPUTER'S PIECE WILL BE A 
SOLID BLOCK, YOURS 

WILL BE TWO SMALL BLOCKS, 
CHR$(179). THE COMPUTER WILL MOVE 
ITS PIECE ALL AROUND THE GAME 
BOARD, CHANGING DIRECTION WHEN IT 
SENSES AN OBSTACLE. YOU WILL 
FOLLOW THE COMPUTER'S PIECE OR 
YOU CAN MANEUVER IT TO A SECTION 
OF THE GAME BOARD WHERE IT WILL BE 


PRESS ENTER? 
TRAPPED, MEANING IT CAN ONLY MOVE 
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INSTRUCTIONS 
N PLAYERS" NMS 
INITIALIZE 


OUTPUT PLAYERS 
AND SCORES 


RECHARGE COMP 
PIECE 


Flowchart for Trapped. 


LEFT AND RIGHT. THE COMPUTER'S PIECE 
WILL CONTAIN A 'CHARGE' IF YOU 
SIMULTANEOUSLY END AT THE SAME SPOT 
THAT THE COMPUTER DOES, YOU'LL 

GET BURNED. SIX BURNS AND YOU'RE 
OUT OF THE GAME. YOU WILL MOVE 
YOUR PIECE USING ALL FOUR ARROW 
KEYS. WHEN YOU MOVE THE COMPUTER 
WILL BLANK ITS PIECE. YOU 

WILL BE ALLOWED ONLY 10 CON- 
SECUTIVE MOVES AT ONE TIME. 

ANYTIME YOU WISH TO MOVE YOUR 
PIECE, HOLD DOWN ANY ARROW KEY 
AND PRESS THE SPACE BAR. 
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PRESS ENTER? 


POINTS WILL BE DETERMINED BY HOW 
MANY MOVES IT TAKES YOU 

TO TRAP THE COMPUTER'S PIECE. 
REMEMBER, TO TRAP THE COMPUTER' S 
PIECE, ONLY ALLOW IT TO MOVE 

LEFT AND RIGHT. 


PRESS ENTER TO START? 


Program Listing 


)10 REM PROGRAM TITLE: ( TRAPPED > 

20 CLS:CLEAR 100:DIM AA(12),P1I(12),1$€12) 
30 PRINT CHR$(183);" TRAPPED ";CHR$(187) 
40 PRINT: INPUT"LIST INSTRUCTIONS"; М5 

50 IF WS=<"Y¥" OR WS="YES" THEN GOSUB 3500 
60 CLS:GOSUB 3300: TUz1 

70 QQ=1:MM=0:CR=0:RANDOM 

80 POKE 16526,0:POKE 16527,122 

90 $1=31265:522=S51+1:CC=0:BR=0:TP=1E+04:TR=TP 
100 REM BORDER GRAPHICS 

110 X=15360:Y=X+63:C=191:U=0 
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120 
130 
140 
130 
160 
170 
180 
190 
195 
198 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
355 
360 
370 
380 
390 
395 
400 
405 
410 
415 
420 
425 
430 
440 
442 
445 
450 
460 
470 
480 
490 
500 


FOR IzXTOY:POKE 1,149 

POKE 1+960,149:NEXT 

FOR I-X«64 TO X«INT(Y/19)485 STEP 64 
POKE I,149:POKE 1+63,149:NEXT:GOSUB 3450 
REM INNER GRAPHICS 

IN=X+128 

R=IN+RND(40):Ri=R:L=RND(2) 

FOR I=IN TO R:POKE I,C 

IF L=1 AND /(-3 THEN POKE 1»64,С 
NEXT | 
R2=RND(7):R3=R2+RND(15):GOTO 500 

FOR I=R1+R2 TO R1+R3 

POKE I,C:NEXT 

GOTO 560 

U=U+1 

IF М(25. THEN 180 

REM GRAPHICS FROM RIGHT SIDE 

FOR J=1TO RND(10) 

FOR 1=0ТО4 

IF R(I)=0 THEN 310 

POKE R(I),C:R(I)=R(I)-1 

NEXT I,J 

REM START POSITION 

P=RND(16255) 

IF P(=15425 THEN 330 

IP РЕЕК(Р)(232 OR РЕЕК(Р+2) 0032 THEN 330 
IF (PEEK(P-64)+PEEK(P+64))=382 THEN 330 
CP=P+2:POKE P,143:POKE СР,179 

REM MOVEMENT OF COMPUTER PIECE 
53-210:54-25 

IF PEEK(P+64)=32 THEN A=1:GOTO 440 
РОКЕ S1,30:POKE 52,190: X-USR(0) 

IF PEEK(P-64)=32 THEN A=2:GOTO 440 
POKE 51,30:РОКЕ S2,200:X-USR(0) 

IF PEEK(P-2)=32 THEN A=3:GOTO 440 
POKE S1,30:POKE 52,53: Х=058(0) 

IF PEEK(P+2)=32 THEN A=4:GOTO 440 
POKE 51,30:РОКЕ 82,53:XsUSR(0) 


GOTO 810 

POKE P,32:IF PEEK(CP)=32 THEN 1700 
X$-INKEYS:IF X$=" " THEN 900 

GOTO 1100 


ON A GOTO 460,470,480,490 
P=P+64:POKE P,143:MMz0:GOTO 710 
PsP-64:POKE P,143:MMz0:GOTO 400 
PzP-2:POKE P,143:GOTO 760 
P=P+2:POKE P,143:GOTO 420 

REM WITHIN LIMITS (BOARD GRAPHICS) 
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310 IF ABSCORI4R32-IN)?z60 THEN 200 

220 REM GAP TOO SMALL 

930 IF ABS((R1+R2)-R)(=4 THEN 200 

540 IF R3<=9 THEN 200 

5350 GOTO 210 

560 REM POKE MORE TO RIGHT 

570 IF ABS(CIN+63)-(R1+R3)))=10 THEN 600 
980 X=X+C+1:IN=X+128:POKE IN,C 

590 GOTO 240 

600 R4=RND(8):IF R4(z3 THEN 600 

610 R4zR4«RI«R3 

620 RO=R4+RND(19) 

630 IF ABS(RS-R4)¢=2 THEN 620 

640 IF АВБ(Н5-ІМ)2-62 THEN 680 

650 FOR IzR4 TO R5:POKE I,C 

660 IF Lz1 AND УХ(24 THEN POKE 1+64,C 
670 NEXT 

680 REM VARIABLES (RIGHT SIDE GRAPHICS) 
690 FF=IN+é2 :R(U)=FF:N(U)=ABS(FF-R5) 
700 GOTO 580 

710 REM DOWN / UP - SEARCH LEFT / RIGHT 
720 IF PEEK(P-2)=32 THEN 410 

730 IF PEEKi(P«2)232 THEN 420 

740 IF А-1 THEN 390 

750 GOTO 400 

280 REM LEFT / RIGHT - SEARCH DOWN / UP 
770 IF PEEK(P+64)=32 THEN 390 

780 IF PEEK(P-64)=32 THEN 400 

790 IF Az3 THEN 410 

800 GOTO 420 

810 REM TRAPPED (COUNTER) 

815 A(CQG)zAÀ 

820 IF A(QQ)=A(QQ-1) THEN 880 

830 IF ММ) =8 THEN 1240 

840 IF MM>=4 THEN S3zS3410: CRsCR«10 

850 IF 532-2595 THEN 832255 

860 GQ=QQ+1:I1F 002-323 THEN QQ=1 

870 GOTO 390 

880 IF PEEK(P+2)=17? OR PEEK(P~2)=179 THEN MM=MM+1 
890 GOTO 830 

900 REM USER PIECE / MOVE PER KEY 

910 KE=PEEK(15340):REM SCAN KEYBOARD 
920 IF KE=136 THEN 970 

930 IF KEz144 THEN 970 

940 IF KE=192 THEN 1010 

950 IF КЕ=160 THEN 1030 

960 CC=0:GOTO 450 

970 IF PEEK(CP~64)()32 THEN 960 
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980 POKE CP,32:CP=CP-64:GOTO 1050 
990 IF РЕЕК‹СР+64) (У 32 THEN 960 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1450 
1460 
1470 
1480 
1490 
1500 
1510 


POKE CP,32:CP=CP+64:GOTO 1050 
IF PEEK(CP+2)(>32 THEN 960 

РОКЕ CP,32:CP=CP+2:GOTO 1050 

IF PEEK(CP-2)(>32 THEN 960 

POKE СР,32:СР-СР-2 

POKE CP,179: TP:TP-1 

POKE 81,30:POKE 82,195: XzUSR(0) 
REM USER'S MOVES (COUNTER) 
CCaCC«1:IF СС) =10 THEN CC=0:GOTO 450 
GOTO 9?00 

REM SOUND / COMPUTER PIECE 

REM CHARGE RATE (DIMINISH BY PLUS) 
POKE 51,30:РОКЕ 82,84: XzUSR(0) 
CR=CR+1 

IF CR>=1000 THEN GOSUB 1450:GOTO 1180 
ІР СЕ) =990 THEN 54=54+10 

ІР 542-255 THEN 54=255 

GOTO 450 

REM RECHARGE COMPUTER PIECE 
POKE P,143:FOR C=1 TO ((84*2)2-100) 
POKE 51,30:РОКЕ 82,15: XzUSR(0) 
NEXT: CR=0°54=25:POKE Р,32 
GOSUB 1510:GOSUB 3450:GOTO 450 
REM TRAPPED ? 

REM CHECK CHARGE RATE FIRST 

IF СА) =925 THEN 1280 

GOTO 1290 

CR=1000:GOTO 1370 

REM TRAPPED COMP. PIECE 

L=0 

POKE P,32:FOR ТІг1Т0100:МЕХТ 
РОКЕ P,143:FO0R ТІсіТ050 

POKE 51,30:РОКЕ 82,20: XzUSR(0) 
МЕХТ 

L=L+1:IF 15-2 THEN 1310 

GOTO 1600 

GOSUB 1450:РОКЕ P,32:MM=0 

Р=Р+& 

GOTO 450 

REM MESSAGE 
MGz16345:M$z"RECHARGING" 

FOR Iz1TO LEN(M$) 

POKE MG,ASC(MIDS(M$,1,1)) 
MG=MG+1: NEXT 

POKE MG,32:RETURN 

MGz16345 
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1520 
1530 
1540 
1550 
1600 
1610 
1620 
1630 
1640 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2100 
2110 
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FOR І-1Т0 LEN(M$) 

POKE MG,14? 

MG=MG+I NEXT 

POKE MG,149? RETURN 

REM MESSAGE (TRAPPED) 

MG=16349 

M$z"** TRAPPED *x" 

GOSUB 1470 

GOTO 1910 

REM USER "BURNED" 

MG=16345 

M$z"* USER BURNED *" 

GOSUB 1470 

REM LEAVE USER POSITION AS-IS 
Lz0:MMz0 

РОКЕ СР,32:ҒОН ТІ-170100:МЕХТ 
FOKE CP,179:FOR ТІ-г17050 

POKE 51,30:РОКЕ 52,18:Х-У5Н (0) 
NEXT: IF 15-1 THEN L=L+1:GOTO 1760 
BR=BR+1:GOSUB 1310:GOSUB 3450 
IF BR?s6 THEN GOSUB 1830:GOTO 1870 


GOTO 445 
L=0 
FOR І-17045 


POKE 51,30:РОКЕ 82,1410 
XzUSR(COD):.NEXT. CLS: RETURN 


PRINT 

PRINT"YOU'VE BEEN BURNED"; ВА; "TIMES" 
PRINT"SUCKER !!1!1":TPz0 

PRINT"YOUR QUT OF THE GAME..." GOTO 2000 
REM TRAPPED 

GOSUB 1830 


PRINT"YA GOT ME TRAPPED, TURKEY !!!" 
PRINT" YOUR TOTAL POINTS NOV EQUAL "; 
PRINT TP 

PRINT"YOU MADE А TOTAL OF"; TR-TP; "MOVES" 
PRINT"BEFORE TRAPPING ME....." 

POKE 51,30:РОКЕ 52,255 

X-USR(O) 

REM PLAYER ADVANCE / POINTS 
PI(TU)=TP 

IF TU=N THEN 2100 

TU=TU+1 

PRINT"KEY ENTER ";I$(TUD; 

INPUT W$:CLS 

GOTO 70 

REM ALL PLAYED 

REM SORT AMTS. / PLAYERS 


2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2325 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 


IF N=1 THEN 2220 

F=0:AA=1 

IF PI(AA)}=PI(AA+1) THEN 2170 

PaPI(AA): PICAA)=PICAA+1) 

РІ(АА+1) =Р:15=15 (AA) 

15 (АА) HIS (АА +1) :15(АА+1)=1$ 

Е= | 

IF AACN THEN AA=AA+1:GOTO 2140 

IF Fel THEN 2130 

GOTO 2260 

PRINT" YOU'VE PLAYED BY YOURSELF, AGAINST" 
PRINT"THE COMPUTER. YOU WERE BURNED"; BR 
PRINT"TIMES. FINAL TRAPPING SCORE:";PI(TU) 
СОТО 2330 

[=] 

PRINT"BEST TRAPPER..... “,;1[%(1) 
PRINT"TOTAL POINTS =";РІ(1) 
PRINT"FOLLOVING ";I$(I) 

FOR [=2TON: PRINT I$(I) ; 

PRINT" WITH A SCORE OF: "; 

PRINT РІ(1) 

FOR TI-1TO1000:NEXT TI,I 

PRINT 

PRINT"END OF PROGRAM RUN....." 

FOR Isz1TO100:POKE 81,30: POKE 82,1420 
X=USR(0) : NEXT: PRINT 

PRINT"UNLESS ALL WANT TO PLAY AGAIN ???" 
PRINT"IF 80, TYPE RUN." 

PRINT:FOR ТІ-1701500:МЕХТ 

PRINT"EMD 

END 

REM PLAYERS (AMTS. / NAMES) 

PRINT"ENTER NUMBER OF PLAYERS" 

INPUT N 

IF М(-0 OR N)=11 THEN 3310 

PRINT"NOV ENTER THE";N; "PLAYER'S" 


PRINT"FIRST NAMES" 
FOR I-1TON 


INPUT 15 (I) :NEXT 

PRINT 

PRINT"CURRENT PLAYER'S NAME" 
PRINT"VILL BE PRINTED AT BOTTOM OF" 
PRINT"GAME BOARD....." 

FOR TIs1TO1200:NEXT 

CLS 

RETURN 

REM PLAYER 

MG=16348 
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3470 FOR I=1TO LEN(I$(TU)) 

3480 POKE MG,ASC(MID$(I$(TU),I,1)):MG=MG+1 
3490 МЕХТ:РОКЕ MG,32:RETURN 

3500 REM INSTRUCTIONS 

3910 PRINT" UP TO 10 PLAYERS CAN" 

3920 PRINT"TRY TO OUTWIT THE COMPUTER AND" 
3530 PRINT"MANEUVER ITS PIECE INTO А SITUATION" 
3340 PRINT"VHERE IT WILL BECOME TRAPPED." 

3990 PRINT"THE COMPUTER'S PIECE WILL BE A" 
3560 PRINT"SOLID BLOCK, YOURS" 

3970 PRINT"VWILL BE TWO SMALL BLOCKS.";CHR$(179) 
3580 PRINT"THE COMPUTER WILL MOVE" 

3990 PRINT"ITS PIECE ALL AROUND THE GAME" 

3600 PRINT"BOARD, CHANGING DIRECTION WHEN IT" 
3610 PRINT"SENSES AN OBSTACLE. YOU WILL" 

3620 PRINT"FOLLOW THE COMPUTER'S PIECE OR" 
3630 PRINT"YOU CAN MANEUVER IT TO А SECTION" 
3640 PRINT"OF THE GAME BOARD WHERE IT WILL BE" 
3650 INPUT"PRESS ENTER";W$:CLS 

3660 PRINT"TRAPPED, MEANING IT CAN ONLY MOVE" 
3670 PRINT"LEFT AND RIGHT. THE COMPUTER'S PIECE" 
3680 PRINT"VWILL CONTAIN A 'CHARGE'. IF YOU" 
3690 PRINT"SIMULTANEOUSLY END AT THE SAME SPOT" 
3700 PRINT"THAT THE COMPUTER DOES, YOU'LL" 
3710 PRINT"GET 'BURNED'. SIX BURNS AND YOU'RE" 
3720 PRINT"OUT OF THE GAME. YOU WILL MOVE" 
3730 PRINT"YOUR PIECE USING ALL FOUR ARROW" 
3740 PRINT"KEYS. WHEN YOU MOVE THE COMPUTER" 
3750 PRINT"WILL 'BLANK' IT'S PIECE. YOU" 

3760 PRINT"WILL BE ALLOWED ONLY 10 CON-" 

3770 PRINT"SECUTIVE MOVES AT ONE TIME." 

3780 PRINT"ANYTIME YOU WISH TO MOVE YOUR" 

3790 PRINT"PIECE, HOLD DOWN ANY ARROW KEY" 
3800 PRINT"AND PRESS THE SPACE BAR" 

3810 INPUT"PRESS ENTER";W$:CLS 

3820 PRINT"POINTS WILL BE DETERMINED BY НОМ" 
3830 PRINT"MANY MOVES IT TAKES THE USER" 

3840 PRINT"TO TRAP THE COMPUTER'S PIECE." 

3850 PRINT"REMEMBER, TO TRAP THE COMPUTER'S" 
3860 PRINT"PIECE, ONLY ALLOW IT TO MOVE" 

3870 PRINT"LEFT AND RIGHT " 

3880 INPUT"KEY ENTER TO START";W$ 

3890 CLS.RETURN 


Variables and Strings 


TU - Used in conjunction with user's name to identify player 
QQ - Used for left/right movement of computer piece 
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MM - Number of times computer piece moves left and right before 
final entrapment by the user; used in conjunction with A(QQ) 

CR - Charge rate of computer's piece 

51,52 - For sound location, machine language routine 

CC - User's number of moves per key closure 

BR - Number of burns player receives 

TP - Total number of points allowable: one deducted for each user 
move 

TR - Used in final message for number of moves player made before 
trapping computer piece 

X, Y, GU - Used for graphics and the game board 

IN, R, R1, R2, R3, R4, R5, L, FF, R(U), N(U) - Determine the length and 
width of the inner poke graphics (left to right, right to left) 

P - Used to determine the starting location of the computer piece 

CP - Users start location, two more than the variable P 

53,54 - Used in conjunction with computer piece for extra sound, 
along with variables 51 and 52 

A — Determines route that computer's piece will take in conjunc- 
tion with P (peek) arguments 

KE - Key closure for user's moves. The arrow key must be pressed 
in conjunction with space bar for correct entry 

L - Used again for the length of sound output 

MG - Poke location for print messages 

PI(TU) - For each players point amount, will return 0 (zero) if 
BR» —6 (user burned 6 times) 

IS(TU) - Player's name, turn 

N - Number of players (total) 


Explanation of the Program Lines 


Line 50 checks the entry of W$ for the print of the instructions 
at lines 3500-3890. Lines 3300-3440 (a GOSUB) will allow the entry 
of up to 10 players and their names. 

Line 70 initializes some of the variables for each player. 

Line 80 initializes the machine language subroutine. 

Lines 90-150 poke the outer graphics and then branch to the 
subroutine in lines 3450-3490 for the printing of the current player's 
name within the graphics. 

Lines 160-310 establish the inner graphics. When the variable 
L=1, a larger (double CHR$(191)) will be poked. Lines 500-550 
work in association with these lines to keep the graphics within 
limits. Also used with the inner graphics are lines 560-670, which 
move the graphics more to the right. Finally, the game board 
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graphics use lines 680-700 to establish the variables for the inner 
graphics. 

Lines 320-360 select the computer's start location randomly 
and establishes the user's start location at two more than the 
computer's. The arguments contained here assure that the start 
location will be in a blank area and that no borders are above or 
below the start location. 

Lines 370-490 are used for the movement of computer's piece 
and the sound output, which uses locations 51 and 52. These lines 
use a search-ahead routine making sure the area ahead will be blank. 
Also used in conjunction with these arguments are lines 710-800, 
which assure that the computer's piece will have an alternate route 
to take unless trapped. Lines 460 and 470, where MM = 0 (reset 
counter), insure that the computer will only be trapped in a left and 
right direction; 1.е., it can only move left or right. 

Line 442 tests for the user's key closure. Holding down any 
arrow key will branch the flow to line 900. If none of the arguments 
are met (holding down the space bar, along with the selected arrow 
key) the program branches back to the computer piece movement. If 
any of the conditions are satisfied, the program makes sure that 
movement is toward a blank space, or else the movement cannot 
occur. 

Line 1050, where TP=TP-1, subtracts one point for each 
move from the total of 10,000 points that the player is allowed. 

Line 1060 outputs the user's sound. 

Lines 1070-1090 count the number of moves the player makes. 
These lines willonly allow 10 consecutive moves at one time. When 
this counter reaches a count of 10, the program resumes with the 
computers movements in line 450. 

Lines 800-890 test to see if the computer's piece is actually 
being trapped (line 880). If it is, the variable MM 15 increased by 
one. If the count reaches 4, the pitch of the computer's sound will 
become higher and its charge will also increase. If the total count 
reaches 8 the computer’s piece is trapped, and program flow 
branches to line 1240. 

Lines 1100-1170 increase and test the computer's charge. If 
the charge rate is greater than or equal to 990, then the pitch will 
change for the computer’s piece. When the charge rate reaches 
1000, play comes to a halt until piece is recharged at lines 1180- 
1220. 

Lines 1240-1270 also test the charge rate of the computer’s 
piece. If it is greater than or equal to 925, the charge rate will 
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automatically become 1000. This will give the computer a break by 
advancing its piece 6 places to the right in lines 1280 to 1370. 

Lines 1290-1360 are used for the final trapping of the com- 
puter's piece. Play will then branch to line 1600. 

Lines 1420-1820 are for the print messages at the lower part of 
the game board. They also test burn amounts (BR) that the user has 
received. If BR is greater than or equal to 6, program flow branches 
to line 1870, where the player loses all his points, and the next 
player is given a chance to play (if applicable). 

Lines 1910-1990 print the messages if the computer's piece is 
trapped. 

Lines 2000-2060 advance to the next player, if the condition 
TU= N is not met. Scores points are also set with with subscripted 
variable PI(TU). 

Lines 2100-2200 sort all players according to their scores, 
placing the highest scorer first and so on. 

Lines 2220-2250 displays a message when there is only one 
player. 

Lines 2260-2410 print the players' names and their scores. 

Lines 3300-3440 allow the entry of up to 10 players and their 
first names. 

Lines 3450-3490 print the player's first name at the lower part 
of the game board when it is his or her turn. 

Lines 3500-3890 print the general instructions. 
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EVERYBODY THAT WANTED 
OFF ON THE FIFTH FLOOR— 
HERE IT IS! 


NOBODY WANTS 
OFF HERE!! 


ELEVATOR 


Guess what? You've been fired from your present job! Guess what 
else? The computer has hired you to be an elevator attendant! If 
you don't have a sharp memory, you'll get paid nothing. You see, you 
must remember what is on every floor and who wants off there. 
Some of the customers might even give you some tips! All is not 
lost, not yet that is... Note that the IBM version of this program is 
included in Appendix A, and the Apple version in Appendix B. 


Sample Run 

ee ELEVATOR xs 
INSTRUCTIONS REQUIRED (Y/N)? Үү 
FIRST NAME? FUZZY 


PRESENT OCCUPATION? BELLHOP 
YOU HAVE JUST BEEN FIRED AS А BELLHOP!! 
BUT, YOU ARE IN LUCK !! THE 

COMPUTER HAS JUST HIRED YOU TO 

BE AN ELEVATOR ATTENDANT. YOUR 

JOB WILL BE QUITE SIMPLE, FUZZY. 

ALL YOU HAVE TO DO IS REMEMBER 

ALL THE FLOORS (16 TOTAL) 


234 


AND WHAT IS CONTAINED ON EACH 
OF THEM, SO YOU CAN TAKE ALL 
OF MY CUSTOMERS TO THEIR 
RIGHT LOCATION..... 

PRESS A KEY... 


| ALMOST FORGOT TO TELL YOU, ALL 


CUSTOMERS, WHEN STEPPING ONTO THE 


ELEVATOR, WILL TELL YOU WHAT THEY 
WANT; THEY WILL ONLY TELL YOU THIS 
ONCE. FOR EVERY CUSTOMER YOU 
PLACE ON THE RIGHT FLOOR, YOU'LL 
BE PAID $10.00, THAT IS THE ONLY 
WAY YOU'LL GET PAID. CUSTOMERS 
WILL BE GETTING ON THE ELEVATOR 
AT DIFFERENT STOPS; YOU MUST 
REMEMBER THESE ALSO, FUZZY. 
PRESS A KEY... 

HERE ARE THE FLOORS AND TITLES: 

2) WOMEN'S CLOTHES 

3) MEN'S CLOTHES 

4) CHILDREN'S CLOTHES 

5) INFANT'S CLOTHES 

6) TOYS 

7) CARPETS 


8) COMPUTERS 
9) APPLIANCES 


10) FURNITURE 

11) HARDWARE SUPPLIES 

12) HOBBY SUPPLIES 

13) AUTO SUPPLIES 

14) OFFICE SUPPLIES 

15) BATHROOM ITEMS 

16) BEDROOM ITEMS 

YOU SHOULD BE ALL SET, FUZZY 
FUZZY, YOU NOW HAVE 7 CUSTOMER(S) 
GETTING ON MY ELEVATOR. 


THE CUSTOMERS’ DESTINATION(S): 
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COMPUTER FLOOR 

AUTO SUPPLIES 

CARPET FLOOR 

HARDWARE SUPPLIES 

HARDWARE SUPPLIES 

COMPUTER FLOOR 

INFANT'S CLOTHES 

PRESS A KEY... 

PRESS U FOR «UP- 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 5 

1 OF THE CUSTOMER(S) JUST 
STEPPED OFF OF MY ELEVATOR, FUZZY. 
PRESS U FOR «UP» 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 7 

1 OF THE CUSTOMER(S) JUST 
STEPPED OFF OF MY ELEVATOR, FUZZY. 
PRESS U FOR «UP» 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: DOWN 

FLOOR NUMBER 5. 

FUZZY NO CUSTOMERS WANTED OFF 
ON THIS FLOOR... 

PRESS U FOR <UP> 

PRESS D FOR «DOWN» 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 17 

PRESS U FOR «UP» 

PRESS D FOR «DOWN» 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 10. 

FUZZY NO CUSTOMERS WANTED OFF 
ON THIS FLOOR... 

PRESS U FOR <UP> 
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PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: DOWN 

FLOOR NUMBER 9. 

FUZZY NO CUSTOMERS WANTED OFF 
ON THIS FLOOR... 

PRESS U FOR «UP» 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: DOWN 

FLOOR NUMBER 9. 

YOU ARE ON THAT FLOOR, FUZZY! 
PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: DOWN 

FLOOR NUMBER 8. 

2 OF THE CUSTOMER(S) JUST 


STEPPED OFF OF MY ELEVATOR, FUZZY. 


FUZZY YOU JUST HAD 5 MORE 
CUSTOMERS STEP ONTO THE 
ELEVATOR. THE DESTINATION(S): 
WOMEN'S CLOTHES 

CARPET FLOOR 

BATHROOM ITEMS 

BEDROOM ITEMS 

HARDWARE SUPPLIES 

PRESS A KEY... 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 11 

3 OF THE CUSTOMER(S) JUST 


STEPPED OFF OF MY ELEVATOR, FUZZY. 


PRESS U FOR «UP» 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 7 

IF YOU WANT TO GO UP, USE A 
HIGHER NUMBER THAN THIS FLOOR. 
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START 


INSTRUCTIONS 


CONTINUE 
INSTRUCTIONS 


РНЕ 


READ 
DATA LIST 


PRINT МО/5 
FLOOR TITLES 


1 
m 


TC 
CUSTOMERS 


SEI HTLES 
| 


[ 
1221 


PRINT C 
TITLES 


N 


POKE FLOOR 
NUMBER-VIDEO 


N 
MESSAGE 
STOP 


GK = *K 


MESSAGE 


Flowchart for Elevator. 


PRESS U FOR <UP> 
PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 12 

FUZZY, NO CUSTOMERS WANTED OFF 
ON THIS FLOOR... 

FUZZY, YOU JUST HAD 4 MORE 
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CUSTOMERS STEP ONTO THE 
ELEVATOR. THE DESTINATION(S): 
MEN'S CLOTHES 

FURNITURE FLOOR 

WOMEN'S CLOTHES 

GROUND FLOOR 

PRESS A KEY... 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 13. 

1 OF THE CUSTOMER(S) JUST 
STEPPED OFF OF MY ELEVATOR, FUZZY. 
FUZZY, YOU JUST HAD 4 MORE 
CUSTOMERS STEP ONTO THE 
ELEVATOR. THE DESTINATION(S): 
WOMEN'S CLOTHES 

WOMEN'S CLOTHES 

TOY FLOOR 

MEN'S CLOTHES 

PRESS A KEY... 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 


STOP 
This is not a complete run. 


Program Listing 


10 REM PROGRAM TITLE: ELEVATOR 

20 CLS:W$S="$ 5 4809808 HH" 

30 DIM Е(6&0),Е$(60),6%(60) 

40 RANDOM 

50 PRINT TAB(10)0"*** ELEVATOR F***" 
60 PRINT 

70 PRINT"INSTRUCTIONS REQUIRED (Y/N)"; 
80 INPUT I$:IF I$z"N" THEN Nel 

90 INPUT"FIRST NAME";N$ 

100 PRINT:IF N=1 THEN 230 

110 INPUT"PRESENT OCCUPATION" ;P$ 


120 PRINT"YOU HAVE JUST BEEN FIRED AS À "; 
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129 PRINT P$;"!i" 

130 PRINT"BUT, YOU ARE IN LUCK !! THE" 

140 PRINT"COMPUTER HAS JUST HIRED YOU TO" 
150 PRINT"BE AN ELEVATOR ATTENDANT. YOUR" 
160 PRINT"JOB WILL BE QUITE SIMPLE, ";N$ 

170 PRINT"ALL YOU HAVE TO DO IS REMEMBER" 
180 PRINT"ALL THE FLOORS (16 TOTAL)" 

190 PRINT"AND WHAT IS CONTAINED ON EACH" 

200 PRINT"OF THEM, SO YOU CAN TAKE ALL" 

210 PRINT"OF MY CUSTOMERS TO THEIR" 

220 PRINT"RiGHT LOCATION....." 

230 REM VHAT'S ON EACH FLOOR 

240 FOR І-2 TO 19:READ F$ (I): NEXT 

290 IF N=i THEN 370 ELSE GOSUB 2150:PRINT 
260 PRINT"I ALMOST FORGOT TO TELL YOU, ALL" 
270 PRINT"CUSTOMERS, WHEN STEPPING ONTO THE" 
280 PRINT"ELEVATOR, WILL TELL YOU WHAT THEY" 
290 PRINT"VANT, THEY WILL ONLY TELL YOU THIS" 
300 PRINT"ONCE. FOR EVERY CUSTOMER YOU" 

310 PRINT"PLACE ON THEIR RIGHT FLOOR, YOU'LL" 
J20 PRINT"BE PAID $10.00, THAT IS THE ONLY" 
330 PRINT"VAY YOU'LL GET PAID. CUSTOMERS" 
340 PRINT"VILL BE GETTING ON THE ELEVATOR" 
350 PRINT"AT DIFFERENT STOPS; YOU MUST" 

355 PRINT"REMEMBER THESE ALSO, ";N$,"." 

360 GOSUB 2150 

370 PRINT"HERE ARE THE FLOORS AND TITLES:" 
380 FOR Iz2 TO 16 

390 PRINT I,") ",;F$(0I); 

395 IF 1-8 THEN TTzsI*200:PRINT:GOSUB 2190 
400 IF І2-2 AND I(z5 THEN 440 

410 IF І2-% AND І(-10 THEN PRINT:GOTO 470 
420 IF І2-11 AND I¢=14 THEN 450 

430 IF 1)=15 AND 15-16 THEN 460 

440 PRINT" '",F$(17):GOTO 470 

450 PRINT" ";P$(182:GOTO 470 

460 PRINT" ";Е$(19) 

470 IF RX-1 THEN RETURN ELSE NE&T 

475 REM VARIABLE RX FOR PRINT ELEMENTS 

480 FOR ігі TO 6.PRINT:NEXT.TT-TT«900 

470 GOSUB 2190: CLS:C20.GKz0 

500 PRINT"YOU SHOULD BE ALL SET ";N$ 

310 TT=TT-900.GOSUB 2190:RX=1 

220 REM GET CUSTOMERS 

530 CG=RND(PEEK(33)+1) 

940 PRINT N$;" YOU NOW HAVE";,C;"CUSTOMER(S) " 
550 PRINT"GETTING ON MY ELEVATOR." 

960 BEM GET C RESPONSES 
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970 Isl 

580 REM FLOOR NUMBER 

590 F=RND(PEEK(49)+1):IF Fel THEN 590 
595 IF Ғ-ТЕ THEN 590 

600 F(I)=F:I=I+I 

610 IF I¢=C THEN 590 

620 REM FLOOR TITLES 

630 FOR I=1 TO C 

640 GS$CIOZFS(F(CIO) 

650 NEXT 

660 GOSUB 2190:PRINT 

670 PRINT"THE CUSTOMERS DESTINATION(S):" 
680 PRINT: FOR Ісі TO C 

690 PRINT G$¢1);"°"; 

700 Ғ-Е(1) 

710 IF Р)=2 AND F(=S THEN 760 

720 IF F?z11 AND Ғ(-14 THEN 770 

730 IF F>=15 AND Ғ(-16 THEN 780 

740 PRINT" FLOOR" 

750 NEXT:GOTO 790 

760 GOSUB 440:GOTO 750 

770 GOSUB 450:GOTO 750 

780 GOSUB 460:GOTO 750 

790 GOSUB 2150 

800 CLS 

810 PRINT"PRESS U FOR ЧР)" 

820 PRINT"PRESS D FOR (DOWN? " 

830 PRINT"THEN ENTER THE FLOOR NUMBER" 
840 NN=0:REM DIRECTION 

850 GOSUB 2160 

860 D$sAS:IF Dó$z"U" D$z"UP":GOTO 870 
865 IF D$="D" THEN D$z"DOWN":GOTO 870 
868 СОТО 950 

870 PRINT"DIRECTION: ";D$ 

880 PRINT'"FLOOR NUMBER", 

890 INPUT FR 

895 IF FR=1 AND TF=0 THEN 1280 

900 IF FR(1 OR FR?16 THEN 800 

905 IF FR=TF THEN 1280 

910 IF FR4XTF AND D$="UP" THEN 1260 

915 IF РЕ) ТЕ AND D$="DOWN" THEN V=1:GOTO 1260 
920 GOSUB 219?0:CLS: REM PAUSE BEFORE START 
930 IF D$z"UP" THEN 970 

940 IF D$="DOWN" THEN 1040 

950 PRINT"SELECT A DIRECTION ";N$,;"!!" 
960 PRINT:GOTO 810 

970 REM "UP" 

980 IF ТЕ) =17 THEN 1030 
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990 GOTO 1300 

1000 PRINT"YOU ARE ON THE ";T$;" FLOOR ";N$5 
1010 PRINT"YOU CAN NOT GO ANY ";H$,;"!1!" 
1020 GOTO 960 

1030 TS$z"TOP":H$z"HIGHER":GOTO 1000 

1040 IF TF(s1 THEN 1060 

1050 GOTO 1070 

1060 T$="BOTTOM" :H$="LOWER": COTO 1000 

1070 REM "DOWN" CONTINUED (MOVEMENT) 

1080 FS=P-~512:NN<=1 

1085 IF ҒҒ)-58 AND FF(=64 THEN 1220 

1090 POKE P,FF 

1100 FOR Т-і TO 40:NEXT 

1110 РОКЕ Р,32:РОКЕ P+1,32:P=P-64 

1120 IF P<>)FS THEN 1085 

1130 REM CONTINUE IF NOT ON FLOOR 

1140 IF TF FR THEN 1160 

1190 GOTO 1500 

1160 Ғ5-Ғ5-448 

1170 IF P(z15390 THEN 1190 

1180 GOTO 1085 

1190 POKE P,32:POKE P+1,32:P=16350 

1200 FSzP-512:FFzFF-1:TF-TFE-1 

1210 GOTO 1085 

1220 REM FLOORS ABOVE 9 

1230 POKE P,49:POKE P+1,FF-10 

1240 IF ММ-1 THEN 1100 

1250 GOTO 1340 

1260 PRINT"IF WANTING TO GO ";D$;", USE A" 
1265 IF Vz1 Vz0:PRINT"USE A LOWER NUMBER.":GOTO 1275 
1270 PRINT"HIGHER NUMBER THAN THIS FLOOR " 
1275 GOTO 1290 

1280 PRINT"YOU ARE ON THAT FLOOR, ";N$,;"!1!" 
1290 GOSUB 2190:GOTO 800 

1300 REM "UP" MOVEMENT 

1310 IF TF=0 THEN 1460 

1320 FSzP4512:IF FS)=16350 THEN F5=16350 
1325 IF FF)=58 AND FF(=64 THEN 1220 

1330 POKE P,FF 

1340 FOR Т=1 TO 50:NEXT 

1350 POKE Р,32:РОКЕ P+1,32:P=P+64 

1360 IF Р(ЭҒ5 THEN 1325 

1370 REM CONTINUE IF NOT ON FLOOR 

1380 IF TF4?FR THEN 1400 

1390 GOTO 1500 

1400 Ғ5-Ғ5-448 

1410 IF Р) =16350 THEN 1430 

1420 GOTO 1325 
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1430 POKE P,32:POKE P+1,32:P=15390 

1440 Е5=Р+512:РР=-РЕ+1:ТЕ=ТЕ+1 

1450 GOTO 1325 

1460 TFz1:Pz15902:FFz4? 

1470 FSzP«448:GOTO 1325 

1500 REM ON FLOOR REQUESTED 

1510 IF FF>=58 AND FF(=é4 THEN 1530 
1520 POKE P,FF:GOTO 1540 

1930 POKE P,49:POKE P«1,FF-10 

1540 FOR I=1 TO С 

1550 IF FR=F(I) THEN 1570 

1560 NEXT:GOTO 1600 

1970 PA=PA+10 KG=KG+1 

1380 Е(1)=0:ХХ=1 

1590 GOTO 1560 

1600 REM DID CUSTOMERS WANT OFF HERE 
1610 IF ХХ-0 THEN 1630 

1620 XX=0:GOTO 1770 

1630 PRINT NS," NO CUSTOMERS WANTED OFF" 
1640 PRINT"ON THIS FLOOR ..":NCzNC«1 
1645 HJ=HJ+1 IF HJ)=4 THEN HJ=0:FZ=1! 
1650 REM MORE CUSTOMERS STEPPING ON 
1655 AAzRND(22) IF JV=1 THEN 1730 

1660 IF FZ=1 OR FR=1 THEN АА-1:Ғ2-0 
1670 IF АА=1 THEN 1690 

1680 GOTO 1730 

1690 YUsRND(3):YYzC:CzC4 YU: C2zYU 

1700 IF С) =59 THEN JV=1:C=C-C2:GOTO 1730 
1710 REM GET DESTINATIONS 

1720 GOTO 1800 

1730 REM CONTINUE (IF NOT FINISHED) 
1740 KG=0: IF GK>=C THEN 1940 

1750 GOSUB 2170 

1760 GOTO 800 

1770 PRINT KG;"OF THE CUSTOMER(S) JUST" 
1780 PRINT"STEPPED OFF OF MY ELEVATOR, "; 
1785 PRINT N$š;" ":GOSUB 2700 

1790 GK=GK+KG:GOTO 1650 

1800 REM YY MORE DESTINATIONS 

1810 YU=ABS(C-YY):IF GK)C THEN 1940 
1820 PRINT N$," YOU JUST HAD"; YU; "МОКЕ" 
1830 PRINT"CUSTOMERS STEP ONTO THE" 
1840 PRINT"ELEVATOR. THE DESTINATION(S):" 
1850 KG=0:PRINT: FOR IsYY«1 TO C 

1860 F-RND(PEEK(49)41) 

1865 IF F=TF THEN 1860 

1870 IF F=1 THEN F$((1)z"GROUND"'":FZz1 
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1880 F(I?ZF:NEXT:REM FLOORS 

1870 REM TITLE OF FLOORS 

1900 FOR IsYY«1 TO C 

1910 G$(I)=F$(F(I)):NEZT 

1920 FOR I=YY+1 TO C 

1930 GOTO 690 

1940 REM STOP / CONT 

1950 PRINT: PRINT"YOU HAVE NOW COLLECTED: " 
1960 PRINT USING W$;PA:PRINT:GOSUB 2190 
1969 PRINT:GOSUB 2500 

1970 IF JV=1 OR GK>=C THEN 1990 

1980 GOSUB 2190:GOTO 800:REM ALL NOT OFF 
1990 PRINT:GOTO 2300 

2000 REM DATA FOR FLOORS 

2010 DATA WOMEN'S,MEN'S,CHILDREN'S, INFANT'S 
2020 DATA TOYS,CARPET,COMPUTERS 

2030 DATA APPLIANCES, FURNITURE,HARDWARE 
2040 DATA HOBBY,AUTO,OFFICE 

2050 DATA BATHROOM, BEDROOM 

2060 DATA CLOTHES, SUPPLIES, ITEMS 

2070 REM DATA ELEMENT 17 WILL BE USED 
2080 REM WITH ELEMENTS 2 - 5 

2090 REM DATA ELEMENT 18 WILL BE USED 
4100 REM WITH ELEMENTS 11 - 14 

2110 REM DATA ELEMENT 1? WILL BE USED 
2120 REM WITH ELEMENTS 15 & 16 

2190 PRINT:PRINT"PRESS А KEY.. " 

2160 AS=INKEYS$ 

2170 IF А5-"" THEN 2160 

2180 RETURN 

2190 REM TIME LOOP 

2200 FOR Т-1 TO TT:NEXT 

2210 GOTO 2180 

2300 REM CONTINUE ? 

2310 PRINT"WOULD YOU LIKE TO TAKE ON" 
2320 PRINT"SOMEMORE CUSTOMERS ",;N$ 

2330 PRINT"YOUR TOTAL EARNINGS:"; 

2340 PRINT USING М5;РА; 

2390 INPUT А5 

2360 IF А$‹›"Ү" AND ASQ) "YES" THEN 2400 
2370 TTz2000:JV20:PRINT 

2380 PRINT"YOU ARE ON FLOOR ";TF 

2390 NC=0:GOTO 490 

2400 PRINT 

2410 PRINT"END OF ELEVATOR." 

2420 END 

2300 REM POINT SCALE / PAY DEDUCTION 
2510 IF NC(z0 THEN NC=0:RETURN 
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2520 PRINT"YOU MADE";NC;"STOPS THAT VERE" 
2530 PRINT"NOT NECESSARY ";N$,;,". YOU" 
2540 PRINT"WILL TAKE À DEDUCTION IN PAY" 
2550 PRINT"OF $20.00 FOR EACH ONE OF" 
2560 PRINT"THOSE STOPS, TOTAL"; 

2570 NN=NC*20:PRINT USING W$;NN 

2580 PRINT"LEAVING YOU", 

2590 PA=PA-NN 

2600 PRINT USING W$;PA:GOSUB 2190 
2610 RETURN 

2700 REM ANY TIPS ? 

2710 IF KG(=1 THEN RETURN 

2720 AA=RND(2) 

2730 IF АА-і THEN RETURN 

2740 TI=RND(100) 

2750 PA=PA+TI 

2760 PRINT 

2770 PRINT"YOU'RE IN LUCK ";№;", A" 
2780 PRINT"NICE CUSTOMER JUST GAVE" 
2790 PRINT"YOU À TIP OF"; 

2800 PRINT USING W$,TI 

2810 GOSUB 2190:RETURN 


Variables and Strings 


W$ - Used for all money amounts 

N$ - First name of user 

N - 0/1 variable for list of instructions 
P$ - User's current occupation 

F$%(D - Titles of floors 

TT - Time (pause) loop 

RX - For print statements from data list 
C - Number of floors 

GK - Number of correct stops 

TF - Present floor number 

F(I) - Number of each floor (random) 
G$(D) - Title of floor (random) 

FR - Input floor number 

D$ - Direction, up or down 

NN - For downward direction 

V - 0/1 conditional variable for print statements 
T$,H$ - For print statements 

FF - Floor number 

P,FS - Poke locations 

PA - Amount of pay 
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KG - Correct floor 

XX - 0/1 condition, correct floor 

NC - Counter, unnecessary stops 

HJ - Counter, user guessing 

FZ - Used in conjunction with HJ 

JV - Number of floors reached 

АА - Random 1 or 2 for selection of more patrons getting on the 
elevator 

YU - Random amount for more customers 

YY - For extra print elements (more customers getting on elevator) 

CZ - Equals the amount of YU. If C (floors) is greater than or equal to 
59, C will equal C minus C2 (the amount selected) 

YU - Used again as the ABS amount of C minus YY 

TI - Random amount for any tips user might receive 


Explanation of Program Lines 


Line 20 establishes the format in which amounts of money will 
be printed. 

Line 30 contains the dimension statements for the arrays 
containing the floors and their titles. 

Lines 50-360 display the general instructions if they are 
needed. 

Lines 370-480 prints all floor numbers and titles. These are 
only displayed for a predetermined amount of time (variable TT) so 
the user will be dependent upon his or her memory. 

Line 490 initializes the variables C and GK so that if the 
program is played more than once, these will be reset to 0 (zero). 

Lines 520-550 select a random number of customers, up to and 
including 10. 

Lines 560-610 select C floor numbers at random. The IF F=1 
THEN 590 in line 590 insures that floor 1 will not be chosen during 
the first selection process. The IF F=TF then 590 in line 595 
insures that the floor the user is currently on will not be chosen at 
the beginning of any round of play. 

Lines 620-650 select the titles of the floors. F$(F(1)), and 
assigns these to СІ). 

Lines 660-790 print all floor titles selected. The user will be 
allowed to study these titles for as long as he or she wishes. 

Lines 810-850 ask the user to input a direction, either down 
«D or up <U>. If the variable NN is equal to 1, the direction will 
be downward. 
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Lines 860-865 set the contents of D$ to A$, which is the 
direction the user entered. 

Line 868 loops to a print statement in line 950 and then back to 
line 810, if the user does not select <D> or <U> for a direction. 

Lines 870-940 ask the user for a floor number (line 890, vari- 
able FR). 

Line 895 is used only at the beginning of play. If the user 
selects floor 1, program branches to a print statement in line 1280 
and then back to line 800. 

Line 900 insures that selected floor number is not less than 1 or 
greater than 16. 

Line 905 branches to a print statement if the user inputs the 
current floor (TF) he or she 1s on. 

Lines 910-990 test each direction and the value of each floor 
number to see if they are coordinated. If they are not valid, the 
program will branch to a suitable print statement. 

Lines 1000-1060 are the print statements displayed if user 
tries to go below floor 1 or above floor 16. 

Lines 1070-1470 are used for the movements of the elevator 
floor numbers to simulate the motion of the elevator. These lines 
will either move elevator down or up and poke the floor numbers in 
the video memory. 

Lines 1500-1590 compare the current floor number with the 
floor number in memory F(D. If the selected floor does match, 
variable PA (for pay) is increased by 10; variable KG, for total 
correct floors, is increased by 1. Subscripted variable Е@) is then 
equal to 0 (zero), so that it is not matched again during the loop. 
Variable XX is then equal to 1 because a customer did want off on the 
inputted floor. 

Lines 1600-1620 test the value of the variable XX. If it is equal 
to 0 (zero), no customers wanted off. If it is equal to 1, one or more 
customers did get off. 

Lines 1630-1645 display the print statement indicating that no 
customers wanted off. 

Lines 1650-1700 select a number of additional elevator cus- 
tomers if AA is equal to 1. If the variable JV is equal to 1, the number 
of customers (variable C) has reached a limit of 59, and no more 
customers will be permitted on the elevator. Line 1670 tests the 
amount of AA. If itis equal to 1, the program will branch to line 1690, 
where up to 5 more customers will be allowed onto the elevator. 

Lines 1710-1720 branches to line 1800 for the additional 
(ҮҮ--1 TO C) destinations. 
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Lines 1730-1760 continues the program if there are still cus- 
tomers who want to go to a certain floor. 

Lines 1770-1790 display the message telling the user how 
many customers got off of the elevator. Line 1785 branches to a 
GOSUB to see if the user might have received a tip. 

Lines 1800-1840 display the message telling the user how 
many customers stepped onto the elevator. 

Lines 1850-1930 select the number of floors and their titles. 
The program then branches back to line 690 for the printing of the 
titles. This loop begins at line 1920 and terminates at the next 
statement in line 650. 

Lines 1940-1990 print the total amount the user has collected 
and then branch to line 2500 to see if the user had made any 
unnecessary stops. If he did, the total number of unnecessary stops 
is multiplied by 20 and deducted from his or her total pay. Line 1970 
tests variables JV and GK. If neither conditions is met, the program 
resumes at line 800 (direction/floor entry). If either condition is 
met, the program branches to line 2300. 

Lines 2300-2420 continue or stop the program, print the user's 
total earnings, and ask if he or she would care to earn more. 
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FAREWELL 


With a quick eye you'll follow the asterisk to the computer's 
selected location within a 6 by 5 matrix of letters. All you'll need to 
do is tell the computer what letter location it landed on. Get it right 
and you'll gain 1000 points; get it wrong and you'll lose the same 
amount. Land on a cobra location...and you're dead! Note that the 
IBM version of this program is included in Appendix А, and the 
Apple version in Appendix B. 


Sample Run 

srk FAREWELL жә 

NUMBER PLAYING (1-10)? 2 
THE 2 PLAYERS FIRST NAMES 
? MAC 

? SARAH 

ANY OF YOU NEED TO SEE 
THE INSTRUCTIONS? YES 
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START 
NUMBER OF 
PLAYERS 


A«1 
OR 
Y A»10 


N 
PLAYERS' 
NAMES 


Y 
PRINT 
INSTRUCTIONS 


SET 26 LETTERS 
ARRANGE RANDOMLY 


SET 4 BLANK SPS 
MOVE BLANK SPACES 
SELECT COBRA POS 


ANOTHER 
PLAYER 
STOP 


N 


FINAL 
Y MESSAGE 


COMP SELECT 
POSITION 


USEH 
STRUCK-DECEASED 


Flowchart for Farewell. 
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SELECT A POSITION 
BY LETTER ONLY?— 


PLAYER: 


READ CAREFULLY, IT COULD MEAN 

YOUR LIFE (OR THE GAME!)... 

EACH PLAYER WILL SEE AND STUDY A 
MATRIX OF 6 BY 5 SQUARES OR 
POSITIONS, THESE WILL BE LABELED WITH 
THE LETTERS A THROUGH Z, WITH 

4 SPACES BLANK. TO PLAY: 

THE COMPUTER WILL SELECT 5 
POSITIONS AND PLACE COBRAS 

WITHIN EACH. THE COMPUTER WILL 
SHOW YOU WHERE 3 OF THE COBRAS ARE 
PRESS ENTER, PLEASE? 


NOW THE COMPUTER WILL SELECT A 
POSITION AND FLASH AN ASTERISK 
THERE. WHAT EACH PLAYER MUST DO 
IS ENTER THAT POSITION. IF YOU 

ARE CORRECT, YOU'LL GAIN 1000 
POINTS: IF INCORRECT, YOU'LL 
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LOSE 1000 POINTS. IF... YOU SELECT 

A POSITION WHERE A COBRA IS... 
YOU'RE OUT OF THE GAME, DEAD |! 
SELECTION OF POSITIONS WILL CON- 
TINUE FOR AS LONG AS EACH PLAYER 
WANTS, OR 21 POSITIONS HAVE BEEN 
OMITTED..... 

PRESS ENTER, TO START? 


Program Listing 


10 REM PROGRAM TITLE: FAREVELL 

19 CLS: RANDOM 

20 PRINT"*** FAREWELL ххх" 

25 PRINT 

30 INPUT"NUMBER PLAYING (1-10) "А 

35 IF A(1 OR А210 THEN 25 

40 PRINT"THE";A;"PLAYERS FIRST NAMES" 

45 FOR 1=1 TO A 

90 INPUT Q$ (I): NEXT 

59 PRINT:U=1 

60 PRINT"ANY OF YOU NEED TO SEE" 

65 INPUT"THE INSTRUCTIONS" ; X5 

70 IF X$O"Y" AND X$0 "YES" THEN 210 

79 PRINT 

80 PRINT"READ CAREFULLY, IT COULD MEAN” 

85 PRINT"YOUR LIFE (OR THE GAME!!)..." 

90 PRINT"EACH PLAYER WILL SEE AND STUDY А" 
95 PRINT"MATRIX OF 6 BY 5 SQUARES OR" 
100 PRINT’ POSITIONS. THESE WILL BE LABELED WITH" 
105 PRINT"THE LETTERS A THROUGH 2 WITH" 
110 PRINT"4 SPACES BLANK. TO PLAY:" 
115 PRINT"THE COMPUTER WILL SELECT 5" 
120 PRINT"POSITIONS AND PLACE COBRAS" 
125 PRINT"VITHIN EACH. THE COMPUTER WILL" 
130 PRINT"SHOW YOU WHERE 3 OF THE COBRAS ARE" 
135 INPUT"PRESS ENTER, PLEASE", X$ 

140 PRINT: PRINT: PRINT@64,CHRS$(30) 
145 PRINT"NOW THE COMPUTER WILL SELECT A" 
150 PRINT"POSITION AND FLASH AN ASTERISK" 
155 PRINT"THERE, WHAT EACH PLAYER MUST DO" 
160 PRINT"IS ENTER THAT POSITION. IF YOU" 
165 PRINT"ARE CORRECT YOU'LL GAIN 1000" 
170 PRINT"POINTS; IF INCORRECT YOU'LL" 
175 PRINT"LOSE 1000 POINTS. IF...YOU SELECT" 
180 PRINT"A POSITION WHERE А COBRA IS..." 
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185 PRINT"YOU'RE OUT OF THE GAME, DEAD !!" 
190 PRINT"SELECTION OF POSITIONS WILL CON-" 
195 PRINT"TINUE FOR AS LONG AS EACH PLAYER" 
200 PRINT"VANTS, OR 21 POSITIONS HAVE BEEN" 
205 PRINT"OMITTED....." 

210 GOSUB 220:INPUT"PRESS ENTER, TO START"; X$ 
215 CLS:GOTO 300 

220 DIM L$(31020,PC31)2,L(31) 

225 REM LETTERS:? CHR5 (23) 

228 IF SL(?0 PRINT"ARRANGING LETTERS..." 
230 1=65:1=1:Р2=1000 

239 L$(I)=CHR$(L):L(I)=l 

240 IF 1=27 THEN 255 

245 I=I+1:L=L+1:GOTO 235 

250 GOTO 235 

255 НЕМ SORT LETTERS RANDOMLY 

260 Ј=1 

265 NzRND(I-1?) 

270 IF L(N)=0 THEN 265 

279 LS$(JO)zCHRS$(N«64) 

280 L(N)=0:J=J+i 

285 IF J=I RETURN 

290 GOTO 265 

300 REM POSITIONS 

305 Р-10:1-1:РІ-Р«128:/-1 

310 P(I)=P:L(I)=I 

319 PzP«6:IszIs«1:JzJ«1 

320 IF І-27 THEN 345 

325 IF Ј=7 THEN 335 

330 GOTO 310 

335 P=PL:PL=PL4+128: J=1 

340 GOTO 310 

345 REM THE REMAINING 4 

350 19 (10-" ":Р(І) =P: LC 1) =] 

355 PzP«ó:IzI41:JzJ«1 

360 IF Ј=7 THEN 370 

365 GOTO 350 

370 REM MOVE THE 4 BLANKS 

375 I=l:J=1:L=27 

380 NzRND(26) 

385 IF L(N)=0 THEN 380 

390 F$=L$(N):L$(N)=L$(L) 

395 L$(L)=F$:L(N)=0 

400 LzL*1:IF Lz31 THEN 410 

409 GOTO 380 

410 REM NOW PRINT LETTERS 

415 CLS:FOR I=1 TO 30 

420 PRINT@P(I),L$¢(1); NEXT 
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425 REM FINAL GRAPHICS 

430 X=16 

435 FOR Y=0 TO 28 

440 SET(X,YO:NEXT 

445 K=X+12 

490 IF X=100 THEN 460 

499 GOTO 435 

460 FOR Х=16 TO 88 

465 SET(X,YO : NEXT 

470 Y=Y-6 5 

480 IF Y=-3.5 THEN 490 

485 GOTO 460 

490 REM COBRA POSITIONS / PLAYER 

495 C=1:PRINT@832,"PLAYER: ";QQ$(UD; 

900 N=RND( I-35) 

505 IF L(N)=0 OR L(N)=100 THEN 500 

510 CB(C)=P(N): FS=LS(N) : CS (С) =Е5 

515 LS(N)=<CHR$(42):L«(N)=100 

520 IF С-5 THEN 560 ELSE IF C(=3 GOSUB 530 
525 C=C+1:GOTO 500 

930 XX=0:REM DEFINE 3 (1 FOR COMPUTER) 
535 PRINT@P(N),LO(N);: FOR T=1 TO 100:NEXT T 
540 PRINT@P(N)," ";.FOR T=1 TO 50:МЕХТ Т 
545 PRINT@P(N) ,FS; 

550 IF XX(s0 THEN XX=XX+1:GOTO 535 

999 RETURN 

560 REM COMPUTER SELECT (IF NOT DONE? 
565 51-:1:М-27%7-425 

575 IF 51,2-22 THEN 1000 ELSE GOSUB 1200 
585 PRINTGV,"I WILL SELECT А POSITION" 
590 N=RND(L-1):GOSUB 1240 

995 IF L(N)=0 OR L(N)=100 THEN 590 

600 FS=L$(N):IF SL-1 THEN GOSUB 530 

605 CS$-F$:NUzN:GOSUB 1300:GOSUB 1200 
610 PRINT@W,"SELECT A POSITION ";Q$(U); 
615 PRINTGW«64,"BY LETTER ONLY"; 


620 INPUT L$ 
629 I=1 


635 IF L$=L$(1) THEN 665 

645 Ізім 

655 ІҒ І2-31 ТНЕМ 675 

660 GOTO 635 

665 NzI:F$2L$:GOSUB 530 

670 GOTO 800 

675 REM COBRA POSITION ОН BLANK 
685 GOSUB 1200 

690 FOR 1=1 TO 5 

699 IF 15-С%(1) THEN 735 
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709 NEXT 

715 PRINT@W,"YOU CANNOT SELECT A BLANK !!" 
725 GOSUB 1240:GOSUB 1200:GOTO 610 

735 REM COBRA 

745 PRINT@W,"YOUR DEAD ";Q$(U);" Ji" 

755 PRINT@W+64,"THAT IS А COBRA POSITION !!" 
765 PRINT8W4128,"** FAREWELL **":GOSUB 1240 
770 ZZ2z1:GOSUB 1200:GOTO 1020 

800 GOSUB 1240:GOSUB 1200:IF 15(2С5 THEN 900 
805 PRINT@W, "CONGRATULATIONS ";Q$(U);"..." 
810 PRINT@W+64,"YOU'VE JUST GAINED"; PZ; 
815 PRINT"POINTS !!" 

820 REM POINTS / CONTINUE 

825 W(U)=W(U)+PZ 

830 PRINTGP(NU)," "; 

835 PRINT8872,"TOTAL POINTS: ";W(U); 

840 GOSUB 1240:GOSUB 1200 

845 PRINT@W,"YOU NOW HAVE";W(UD;"POINTS..." 
850 PRINT@W+64,Q5(U);".. CONTINUE (Y/N)"; 
855 INPUT X$:IF X$z"N" THEN 1020 

860 SL=SL+I:L(NU)=0: L$(NU)=" " 

865 GOTO 575 

900 REM WRONG POSITION 

905 PRINTGW,"WRONG POSITION ";Q$(U) 

910 PRINT@W+64,"YOU ARE NOW MINUS"; PZ; 

915 PRINT"POINTS...":GOSUB 1240 

$20 GOSUB 1200:W(U)=W(U)-PZ 

925 PRINT8872,"TOTAL POINTS: ";W(U); 

930 GOTO 610 

1000 REM FINAL / ANOTHER PLAYER 

1005 GOSUB 1240:GOSUB 1200 

1010 PRINT@W, "THAT'S IT “;Q$(U);". YOU'VE" 
1019 PRINT@W+64,"REACHED THE LIMIT..." 
1020 PRINT@W+128,"ENTER...PLEASE"; 

1029 INPUT X$:CLS 

1030 IF 22-1 THEN ZZ=0:GOTO 1040 

1035 T(U)=W(U) 

1040 UzU«1:IF U?A THEN 1100 

1045 PRINT Q$(U);" YOU ARE NEXT..." 

1050 PRINT"KEY ENTER WHEN READY"; 

1055 INPUT X$:CLS 

1060 GOSUB 225:GOTO 300 

1100 REM FINAL / SCORE RESULTS 

1105 PRINT"PLAYERS AND POINTS:" 

1110 FOR Ісі TO A 

1115 PRINT Q$(1);" TOTAL POINTS: ";T(I) 
1120 NEXT 

1129 PRINT 
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1130 PRINT"PROGRAM TERMINATED....." 
1135 END 

1200 REM CLEAR PRINT AREA 

1210 PRINTGV,CHR$(30) 

1220 PRINTGW«64,CHR$C30) 

1230 RETURN 

1240 REM TIME DELAY 

1250 FOR TI=1 TO 1200:NEXT 

1260 RETURN 

1300 REM FLASH SELECTION COURSE 
1305 FOR I=1 TO NU 

1310 IF L$(I)zs"*" OR L$(I)=" " THEN 1330 
1315 PRINTGP(I),"*", 

1320 FOR TI=1 TO 10:NEXT TI 

1325 PRINTGP(I),L$(1); 

1330 NEXT I 

1335 RETURN 


Variables and Strings 

А - Total number playing (1-10) 

U - Used for subscripted variables, strings, players and points 
Г%() - Letters, asterisks, blanks 

P(D - Position, Print @ areas 

ІСІ) - For deletion of letters after use 

SL - Number of letters used 

L - For letters 

PZ - For points 

J - General purpose, random count of letters, positions 
P - Positions, placed into subscripted variable P(I) 

PL - To advance variable P two lines, when J= 7 

N - Random selection variable 

F$ - Contents of L$(I) 

Q$(U) — Current player 

C, CB(D), C$) - Cobra positions, a total of five 

NU - Selection by computer for the location 

ZZ - Indicates user killed by cobra, no points 

W(U) - User's total score 

T(U) - User's final score if ZZ = 0 


Explanation of the Program Lines 


Lines 30-55 allow up to 10 players' first names to be entered. 
Lines 60-210 display the instructions, if they are needed by any 
player. 
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Lines 220-250 place the 26 letters of the alphabet in the sub- 
scripted string L$, and set the subscripted variable L to the value of 
I for random selection. 

Lines 255-290 arrange the 26 letters randomly. 

Lines 300-340 set the 26 positions at which the letters will be 
placed (Print @ areas). 

Lines 345-365 set the remaining four spaces as blanks. 

Lines 370-405 replace the four blank spaces with randomly 
selected letters. Where these letters were, there are now blank 
spaces. 

Lines 410-420 print all letters and blank spaces. 

Lines 425-485 produce the final X,Y graphics for the 6 by 5 
matrix. 

Lines 490-525 select five cobra positions and flash three of the 
positions with asterisks. 

Lines 530-555 display the position selected by the computer 
and the selection given by the user. 

Lines 560-605 cause the computer to select a random position, 
IF SL< = 21. The first selection is shown by a flashing asterisk. The 
program then branches to lines 1300-1335 where asterisks are 
flashed rapidly from top position to the position selected by the 
computer. 

Lines 610-1060 get the user's selection and determine if the 
entry is a correct guess, ablank, or a cobra position. If it is incorrect, 
the user will have 1000 points deducted from his or her score. If it is 
a blank, the user will be asked to try again. If itis a cobra, the user is 
automatically terminated. Correct entries that match the comput- 
ers, are worth 1000 points each. 

Lines 1100-1135 print all the players' names and their scores. 

Lines 1200-1260 are routines used to clear Print @ areas for 
messages and to cause time delays for the reading of the messages. 
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| Sleep | Sleep | 

Ж | more | today | 
< 

> | 

| 


INSOMNIA 

Having trouble sleeping? The computer will try and solve that 
problem through using its graphics. This program is not intended to 
help people with severe sleep disorders nor should it be used by 
people who hypnotize easily. Note that the IBM version of this 
program is included in Appendix A, and the Apple version in Ap- 


pendix B. 
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START 


MESSAGE 
BEFORE START 


| PHASE I 


<> 


PHASE |! 


<> 


Y 
PHASE III | 


— 


m 


MESSAGE 
END OF RUN 


Flowchart for Insomnia. 
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Program Listing 


10 
20 


30 
40 
50 
60 
70 
80 
90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

400 

410 

420 

430 

440 

450 

460 

470 
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REM PROGRAM TITLE: INSOMNIA 
CLEAR 200:CL5 


PRINT" INSOMNIA" 

PRINT 

PRINT"SO YOU ARE HAVING PROBLEMS" 
PRINT"SLEEPING. JUST SIT BACK, KEEP” 
PRINT"YOUR EYES ON THE VIDEO AND" 
INPUT"PRESS ENTER";X:CLS 
A=30:W=0 

PRINT: PRINT TAB(À)":"; 

PRINT ТАВ(А-1)":";ТАВ(А+1)":"; 
I zxRND(2) 

IF Is1 THEN 160 

IF Ad=60 THEN 170 

A=A+2:GOTO 180 

IF А‹=10 THEN 150 

А-А-2 

W=W+1: IF М=15 THEN 350 

IF Wz700 THEN 210 

GOTO 100 

IF М(-800 THEN 230 

GOTO 250 

PRINT 

W=W+1:GOTO 210 

PRINT"GETTING SLEEPY NOW ???9?" 
FOR Isi TO V:NEXT 

IF М(-814 THEN 290 

GOTO 300 

PRINT: W=W+1:GOTO 270 

FOR X=0 TO 127 

ЅЕТ(Х, 0): ЗЕТ(Х, 47) : NEXT 

FOR X=1 TO 46 
SET(O,X):SET(127,X) : NEXT 

FOR I=1 TO W:NEXT:W=0:GOTO 400 
PRINT@990, ; 

PRINT"KEEP EYES HERE"; 

GOSUB 600 

GOTO 190 

1=62: А=65: Х=897:Ү=А 
ASzSTRINGS(L,L*2*7) 
РНІМТӨА,А5; 

РНІМТӨХ,А%; 

AS=STRINGS(L,32) 

PRINTGA,A5; 

PRINT@X,A$; 

А-А»64:Х-Х-64:1ІҒ А=513 THEN 530 


480 IF Х-Ү THEN 500 

490 GOTO 410 

500 IF М‹=50 THEN 520 

310 GOSUB 600:GOTO 610 

920 WzW«1:IF W=25 GOSUB 580 

329 GOTO 400 

930 IF М21 THEN 480 

540 PRINTGA-45,; 

390 PRINT"STARE AT THIS LOCATION"; 
360 GOSUB 600 

370 GOTO 480 

5980 PRINT@A-429, ; 

390 PRINT"NOW FOLLOW THE BARS"; 

600 FOR I=1 TO 1000:NEXT:RETURN 

610 CLS 

620 PRINT"IF YOU ARE NOT GETTING SLEEPY" 
630 PRINT"BY NOW, YOU'RE А HOPELESS" 
610 PRINT"CASE !!!" 

690 GOSUB 600:PRINT 

660 PRINT"THIS IS THE LAST PHASE OF" 
670 PRINT"INSOMNIA. IF IT FAILS, RUN" 
680 PRINT"THE ENTIRE PROGRAM ONCE" 
690 PRINT"AGAIN..... " 

700 GOSUB 600:PRINT 

710 PRINT"KEEP YOUR EYES ON THE MOVING" 
720 PRINT"BLOCK, THINKING TO YOURSELF" 
730 PRINT"I AM GETTING SLEEPY....." 
710 INPUT"KEY ENTER"; X:W=0 

790 CLS:P$zSTRING$(2,191):A$ STRINGS (2,32) 
760 Yz61:FOR X=15 TO 26 

770 SET(Y,X):NEXT 

780 P=X+579 

790 GOSUB 1100 

800 FOR X=15 TO 26 

810 RESET(Y,X):NEXT 

820 IF Z=1 THEN ?30 

830 FOR Х-15 TO 26 

840 SET(Y,X):YzY-1:NEXT 

850 GOSUB 1120 

860 PzP-6 

870 GOSUB 1100 

880 Ү-61 

890 FOR X=15 TO 26 

900 RESET(Y,X)0:YzY-1:NEXT 

910 GOSUB 1120 

920 Z=1:GOTO 760 

930 GOSUB 1120 

940 FOR Х=15 TO 26 
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950 SET(Y,X)0:YsY«1:NEXT 
960 P=P+5:PRINT@P,PS; 
970 Ys61:FOR Х=15 TO 26 
980 RESET(Y,X) 

990 YsY«1:NEXT 

1000 GOSUB 1120 

1010 VzW«l 

1020 IF W=5 THEN 1050 
1030 IF W=50 THEN 1150 
1040 Z=0:GOTO 760 

1050 FOR X=46 TO 75 
1060 SET(X,14)0:SET(X,31) : NEXT 
1070 FOR X=14 TO 31 
1080 5ЕТ(46,Х):5ЕТ(75,5):МЕХТ 
1090 GOTO 1030 

1100 PRINTGP,P$; 

1110 RETURN 

1120 PRINTGP,A5; 

1130 RETURN 

1150 REM END OF PROGRAM 
1160 GOTO 1160 


Variables and Strings 


A - Tab locations for first phase 

W - General purpose counter 

I - A random amount, also for a time pause 

L - For putting character contents into a string 

A,X - Print @ locations for second phase of program 
Y - Contents of A for reset of graphics 

A$ - Characters for graphics 

P$ A$ - Characters for graphics for third phase of program 
Y - For set/reset locations in third phase 

P - Print @ locations (for block) 

Z - 0/1 variable for graphics 


Explanation of the Program Lines 


Lines 10-80 clear an amount of memory for graphic strings and 
display a short message before beginning the program. 

Lines 90-290 form phase 1 of the program. They print three 
colons at a random tab location. These will move up in a snake like 
fashion. 

Lines 300-590 form phase 2 of the program. Here, two bars 
move from the outside to the inside of a square, and then recycle. 

Lines 610-1090 form the final phase of the program. À pen- 
dulum is set to swinging. 
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YOUR ENTRY WAS 
INCORRECT 


RAINY DAZE 


This program is designed for bad weather days, to make them 
worse! All you'll need do is maintain good eye contact with the 
video and follow the numbers. When you see a number that is out of 
order, press the clear key. That's all there is to it. Oh yes, I almost 
forgot, the speed at which the numbers are printed across the 
screen gets faster and faster with each new line... Note that the 
IBM version of this program is included in Appendix A, and the 
Apple version in Appendix B. 


Sample Run 


INSTRUCTIONS? YES 
PLAYERS? 2. 

THE 2 PLAYER'S INITIALS 
? D.F. 

? H.J. 


THIS PROGRAM IS DESIGNED TO 
HELP YOU THROUGH YOUR WORST 
DAYS BY MAKING THEM WORSE !! 
ACTUALLY THIS PROGRAM WILL 
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MEN n 


START 
NUMBER OF 
PLAYERS 
INITIALS OF 
PLAYERS 
| INSTRUCTIONS 


INITIALIZE 
VARIABLES 


== 


СНАМСЕ 
DIGIT 


PRINT DIGIT 


Y 


ADVANCE 
PLAYERS 


Š 


Y 


CLOSING 
MESSAGE 
STOP 


Flowchart for Rainy Daze. 
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POINTS + 
POINTS 


TEST YOUR ABILITY TO FOLLOW 
NUMBERS IN SEQUENCE. 

THE NUMERALS 1 THROUGH 660 WILL 
НАСЕ ACROSS AND FILL THE VIDEO. 
WHEN A NUMERAL APPEARS THAT IS 
NOT SUPPOSED TO BE THERE, HOLD 
THE CLEAR KEY FOR A SHORT 
PERIOD UNTIL THAT NUMERAL IS 
BLOCKED OUT. 


PRESS ENTER? 


POINTS WILL BE GIVEN ON HOW 
MANY OUT-OF-SEQUENCE NUMERALS 
YOU HAVE DETECTED AT THE 

END OF THE COUNT. 

REMEMBER, YOU MUST HAVE GOOD 
EYE POINT CONTACT WITH THE 
VIDEO... 


D.F. YOU WILL NOW PLAY. 
PRESS ENTER, PLEASE? 


Program Listing 
10 REM PROGRAM TITLE: RAINY DAZE 
CLS 


30 INPUT"INSTRUCTIONS";A$ 

40 INPUT"PLAYERS";P:IF P=0 THEN 40 

30 PRINT"THE";P;"PLAYERS INITIALS" 

60 IF Р) =11 THEN 20 ELSE FOR I-1 TO P 

70 INPUT N$ (I):NEXKT 

80 IF AS$O"Y" AND ASO"YES" THEN 340 

90 REM INSTRUCTIONS 

100 PRINT"THIS PROGRAM IS DESIGNED TO" 

110 PRINT"HELP YOU THROUGH YOUR WORST" 

120 PRINT"DAYS, BY MAKING THEM WORSE !1!" 
130 PRINT"ACTUALLY THIS PROGRAM WILL" 

140 PRINT"TEST YOUR ABILITY TO FOLLOW" 

150 PRINT"NUMBERS IN SEQUENCE " 

160 PRINT"THE NUMERALS 1 THROUGH 660 WILL" 
170 PRINT"RACE ACROSS AND FILL THE VIDEO." 
180 PRINT"WHEN А NUMERAL APPEARS THAT IS" 
190 PRINT"NOT SUPPOSED TO BE THERE, HOLD" 
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200 
210 
220 
240 
230 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
300 
905 
210 
520 
530 
540 
250 
960 
970 
280 
990 
600 
610 
620 
630 
640 
650 
660 
670 
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РНІМТ"ТНЕ CLEAR KEY FOR A SHORT" 
PRINT"PERIOD UNTIL THAT NUMERAL IS" 
PRINT"BLOCKED OUT." 

PRINT 

INPUT"PRESS ENTER";X 

CLS 

PRINT"POINTS WILL BE GIVEN ON HOW" 
PRINT"MANY OUT-OF-SEQUENCE NUMERALS" 
PRINT"YOU HAVE DETECTED AT THE" 
PRINT"END OF THE COUNT." 
PRINT"REMEMBER, YOU MUST HAVE GOOD" 
PRINT"EYE POINT CONTACT WITH THE" 
PRINT"VIDEO...":PRINT 

Isl 

IF P=1 THEN 390 

PRINT М5(1);" YOU WILL NOW PLAY." 
INPUT"PRESS KEY ENTER, PLEASE" ; X 
GOTO 410 

PRINT"WHEN READY, ";N$(P);" PRESS" 
INPUT"THE ENTER KEY"; X 

CLS: RANDOM: N=0:Ni1=0:TT=250 
А=0:М=55:1=64:6=0 
К«РЕЕК(14440):60Т0 550 

PRINT@A,N; 

FOR Т-1 TO TT+TT 

МЕХТ:А=А +5 

IF A»zM THEN 490 

GOTO 430 
A=L:M=M+64:L=L4+64:TT=TT-25:G6=0 

IF L)=1023 THEN 520 

IF TT(=100 THEN TT=100 

GOTO 430 

FOR T=! TO 1000:NEXT 

CLS 

GOTO 420 

REM CHANGE OR LEAVE 

IF K=2 THEN NJ=1:GOTO 690 

N=N+i 

N1zN1«1:IF N1(-z2 THEN 610 
JzINT(RND(0)*2):IF Gz1 THEN J=0:N=N1 
IF Jz1 THEN NzN«1:G-1 

IF K=0 AND АВ5(М-М1)5(20 THEN Y=Y+1 
IF NJ«1 THEN NJ=0:GOTO 640 

IF Ni>=661 THEN 800 ELSE GOTO 440 
Ni=Ni+i 

PRINT@A-5,STRINGS (5,143); 

REM PAUSE BEFORE CONT. 

FOR Т-1 TO 100:NEXT:K=0 


680 GOTO 440 

690 IF ABS(N-N1)=0 THEN 710 

700 YzsY-1:GOTO 720 

710 Y=¥+i 

720 A1sPEEK(A-6415340) 

730 А2 =РЕЕК‹А-8+15360) 

740 IF А1-143 AND А2=143 THEN 760 

750 GOTO 620 

760 CLS: Ү=Ү+2 

770 PRINT"QUIT HOLDING DOWN THE CLEAR" 
780 PRINT"KEY !! LET GO YOU DINGY !! 
790 FOR T=1 TO 1200:NEXT:CLS:GOTO 620 
800 REM PLAYER ADVANCE 

810 YY(I)=Y¥:Y=0:CLS 

820 1=1+1 

830 IF 1)P THEN NIzN1-1:GOTO 850 

840 GOTO 360 

850 REM FINAL 

860 PRINT"PLAYERS AND THEIR POINTS" 
870 PRINT"ARE AS FOLLOWS:" 

880 FOR I=1 TO P 

890 PRINT М9(1);" IDENTIFIED ", 

900 IF YY(I)=0 PRINT"ALL NUMERALS.":GOTO 930 
910 IF ҮҮ(І)<0 YY(I)=-YY(I) 

920 PRINT Ni-YY(1); “NUMERALS. " 

930 МЕХТ 

940 PRINT 

950 PRINT"END OF PROGRAM." 

960 END 


Variables and Strings 


P - Number of players 

N$(I) - Player's initials 

] - Current player 

N - Current digit 

N1 - Counter to change number 

TT - Time loop to cause a delay before the next number is printed 

A - Print @ locations for digits 

M,L - Largest Print 9 areas (limits) 

G - 0/1 for digit change 

K - Peek location for key closure 

J - Digit changed to 

Y - Correct / incorrect entries 

А1,А2- For test to determine whether or not the user is constantly 
holding down the clear key 

ҮҮ(Ї) - User's total points 
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Explanation of the Program Lines 


Lines 10-330 accept the number of players and their initials and 
display the general instructions. 

Lines 340-400 determine the current player. 

Lines 410-420 initialize the variables. 

Line 430 1s used for user key closure. 

Lines 440-510 print the digits, changed or unchanged, test for a 
full video, and decrease the time loop. 

Lines 520-540 create a pause before clearing the video. 

Lines 550-680 leave current digit as it is or change it. If J is 
equal to 1 and G is equal to 0 (zero), the current digit will be 
changed. 

Lines 690-790 increase the user's score if K is equal to 2 (clear 
key). They also test to see if the user is constantly holding down the 
clear key. 

Lines 800-960 advance to next player or terminate the program 
and print the player's names and scores. 
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or Friendly 


Amount on Board is similar to roulette but uses squares rather 
than a wheel. Here's a way to experience the thrill of gambling at 
your own party. 

Lap-the-Track is another betting game. Whose bet will pay 
off in the great spot race? 

Partners challenges you to guess a word based on clues your 
partner gives you. 

From Point А to Point B is a different kind of maze game. 
You have to enter all your instructions before there 15 any move- 
ment at all. 

Injection makes you responsible for killing the bacteria that 
are multiplying out of control. 

Intercept commissions you to defend the domed city from 
alien intruders. Be careful. The high command disapproves when 
you kill friendly intruders. 
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— 


LOOKS LIKE 
$500.00 


AMOUNT ON BOARD 


This game will allow you and up to 9 other players to place an 
amount of money on a square. These numbers will range from 0-9. 
Your initials will be placed on the numeral you have selected. If you 
plan to use real money, the computer will keep excellent tabs on all 
amounts. The computer also selects each number randomly, so it 
won't cheat anyone. 


Sample Run 


* AMOUNT ON BOARD * 
INSTRUCTIONS BEFORE PLAY? YES 


THIS IS THE FIRST PROGRAM 

OF SIX THAT IS MADE FOR 
PARTIES OR WHEN FRIENDS 
GATHER LOOKING FOR SOMETHING 
DIFFERENT TO DO. THIS GAME 

IS SIMILAR TO ROULETTE, BUT 
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START 


INSTRUCTIONS 


NUMBER OF 
PLAYERS 


INITIALS OF 
PLAYERS 


GET DIGIT 
FROM PLAYER 


T AMOUNT TO 
PLACE ON BOARD 


<> 


GRAPHICS 
PLAYING BOARD 


FR 


— 


START/CONT. 
DIGIT ROTATION 


<> 


NO WINNER 
CARRY AMOUNT 


EM 


Flowchart for Amount on Board. 


2/2 


PRINT WINNER 
AND AMOUNT 


STOP 


_— 


| || 
ШШ 
m 


SS IQ SS 
AMOUNT ON BOARD $20.00 


WILL USE NO WHEEL. INSTEAD 
10 SQUARES (FROM 0-9) WILL 
BE USED. AT THE OPTION OF 
THE PLAYERS, REAL MONEY 
CAN BE USED. EACH PLAYER 
(UP TO 10) WILL ENTER A 


PRESS ENTER? 


NUMBER FROM 0-9 AND PLACE ANY 
BET (WITHIN REASON). WHAT- 
EVER THE COMPUTER LANDS ON 
DETERMINES THE WINNER. А 
PLAYER CAN DROP OUT OR BE 
ADDED DURING PLAY, BEFORE 
ANY BETS ARE PLACED. 


NUMBER OF PLAYERS? 2. 


INITIALS OF THE 2 PLAYERS 
(WITHOUT SEPARATING PERIODS) 

? AD. 

?FG 

YOUR NUMBER SELECTION AD 22 
PLACE WHAT AMOUNT ON BOARD? 10 


YOUR NUMBER SELECTION FG? 6. 
PLACE WHAT AMOUNT ON BOARD? 10 
AMOUNT ON BOARD 
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Program Listing 


100 REM PROGRAM TITLE: AMOUNT ON BOARD 
110 CLEAR 200:RANDOM 


120 CLS: М5-="55#,### #8" :Uz576 

130 PRINT"* AMOUNT ON BOARD *" 

140 PRINT 

150 INPUT" INSTRUCT BEFORE PLAY",;X$ 

160 IF X$="N" OR X$z"NO" THEN 390 

170 PRINT 

180 PRINT"THIS IS THE FIRST PROCRAM" 
190 PRINT"OF SIX THAT ARE MADE FOR" 

200 PRINT"PARTIES OR WHEN FRIENDS" 

210 PRINT"GATHER LOOKING FOR SOMETHING" 
240 PRINT"DIFFERENT TO DO. THIS GAME" 
230 PRINT"IS SIMILAR TO ROULETTE, BUT" 
240 PRINT"WILL USE NO WHEEL. INSTEAD" 
250 PRINT"10 SQUARES (FROM 0-9) WILL" 
260 PRINT"BE USED. AT THE OPTION OE" 
270 PRINT"THE PLAYERS, REAL MONEY" 

280 PRINT"CAN BE USED. EACH PLAYER" 

290 PRINT"(UP TO 10) VILL ENTER A" 

300 PRINT 

310 INPUT"PRESS ENTER";X5$:CLS 

320 PRINT"NUMBER FROM 0-9 AND PLACE ANY" 
330 PRINT"BET (WITHIN REASON). WHAT-" 
340 PRINT" EVER THE COMPUTER LANDS ON" 
390 PRINT" DETERMINES THE WINNER. A" 

Jé0 PRINT"PLAYER CAN DROP OUT OR BE" 
370 PRINT"ADDED, DURING PLAY, BEFORE" 
380 PRINT"ANY BETS ARE PLACED.":PRINT 
390 INPUT"NUMBER OF PLAYERS",P 

400 IF РХ1 OR P?10 THEN 390 

410 PRINT"INITIALS OF THE";P; "PLAYERS" 
419 PRINT"(WITHOUT SEPARATING PERIODS)" 
420 FOR і-0 TO P-1:INPUT I$(I) 

430 NEXT 

440 REM GET NUMBER SELECT AND AMOUNT 
450 FOR 1=0 TO 9?:N(IOsI:P(IOsSI:X(I)z20:NEXT 
460 N(0)=-99:I=0 

470 PRINT" YOUR NUMBER SELECTION ";I$(1); 
480 INPUT N: IF NiO OR N>? THEN 470 

490 IF N(N)=0 THEN 510 

495 IF N=0 THEN Х(1)-М(0):60Т0 530 

500 XCI)zN.GOTO 530 

910 PRINT"NUMBER ALREADY ENTERED." 

320 PRINT.GOTO 470 

30 IF М520 THEN N(N)=0 
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540 PRINT"PLACE WHAT AMOUNT ON BOARD", 
290 INPUT А(1) 

50 IF ACID? «(1 OR A(1))100 THEN 580 

570 GOTO 600 

580 PRINT"KEEP THE BET WITHIN REASON.” 
590 GOTO 340 

600 I=I+1 

610 IF 1›Р-1 THEN 630 

420 CLS:GOTO 470 

630 REM TALLY AMOUNTS 

640 1=0 

650 A=A+A(T) 

660 IsI41:IF I)P-1 THEN 680 


670 GOTO 650 
680 REM INCREASE WITH LEFTOVER 


690 A=A+M 

700 М-А 

710 А-0 

720 CLS.PRINT СНА5 (23) 

730 REM PLAYING BOARD 

740 BS$zSTRINGS21,143) 

750 PRINTG4,B5;:PRINT919?6,B5, 
760 PRINT@388,B$, 

270 J=4 JA=á0 JB=J+64 

780 PRINT@J,CHR50191); 

790 IF JosJA THEN 810 

800 J=J+8 GOTO 780 

810 J=jB JA=JA+64: JB=JB+64 
820 IF JA>=424 THEN 840 

830 GOTO 780 

840 REM LOCATIONS OF DIGITS 
850 Lz70 

860 FOR i20 TO 4:LíI2zL 

870 L=L+8:NEXT 

880 L=262 

890 FOR I=5 TO 9:L(I)=L 

900 LsL«8:NEXT:GOSUB 1600 
910 TM=-10:PRINT@448, ; 

920 PRINT"AMOUNT ON BOARD", 
930 PRINT USING M$,M 

940 REM START THE ROUND 

950 NI=RND( 19) 

960 Iz0 

970 PRINTGL(IO,P(ID; 

980 IF С=1 AND I=V THEN 1140 
990 IF I?s1 THEN 1040 

1000 FOR Ү-і TO ТМ:МЕХТ 
1010 I=I+1 
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1020 IF 1=10 THEN 1040 

1030 GOTO 970 

1040 PRINTGL(I-10," ", 

1050 IF Is10 THEN ?60 

1060 TM=TM+1.5 

1070 IF TM>=80 THEN 1090 

1080 GOTO 1000 

1090 REM GET А NUMBER 

1100 IF G=1 THEN 1080 

1110 Gz1 

1120 VsINT(RND(0)2*10) 

1130 GOTO 1080 

1140 REM ViN NUMBER 

1145 IF 1=0 PRINT@L(9)," ";:GOTO 1155 
1150 PRINT@L(V~1)," "; 

1155 FOR I=0 TO ? 

1160 IF X(I)(>V THEN NEXT. GOTO 1230 
1165 I$=I$(I) IF I$z"" THEN 1230 

1170 PRINT8U, ; 

1180 PRINT"THE WINNER ";I$ 

1190 РНІМТ"МІММІМС A TOTAL OF "; 

1200 PRINT USING H$ ;H 

1210 МІ(512-М(1)/%М:М-0 

1220 GOTO 1270 

1230 PRINT@U, ; 

1240 PRINT"SORRY, NO WINNER. ` " 

1250 PRINT"THE MONEY STAYS IN THE" 

1260 PRINT"POT UNTIL WON." 

1270 REM RECYCLE 

1280 PRINT: INPUT"PRESS ENTER, PLEASE";I$ 
1290 CLS:G=0 

1300 PRINT"STOP OR CONTINUE PLAY (S/C)"; 
1310 INPUT I$ 

1320 IF I$z"S" THEN 1530 

1330 PRINT"ANY PLAYER WANT TO QUIT (Y/N)"; 
1340 INPUT I$ 

1350 IF I$="N" THEN 1445 

1360 INPUT"YOUR INITIALS, PLEASE";IS 
1370 FOR І-0 TO P-1 

1380 IF I$¢(I)=I$ THEN 1400 

1390 NEXT:GOTO 1445 

1400 І5(19-"" КЕМ SHUFFLE NAMES/AMOUNTS 
1410 FOR Т-0 TO P-i 

1415 IF IS(TOz"" THEN EX=1 

1420 IF ЕХ-0 THEN TS$(T)=I$¢(T) :T¢(T)=W(T) : GOTO 1430 
1425 T$(T)=IS(T+1): T(T)=W(T+1) 

1430 NEXT:EX=0 FOR Т-0 TO P-1 

1435 IS$(T)zTS(TO:W(TO-T(T) 
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1440 NEXT: PzP-1 

1445 IF Р) =10 THEN 1510 

1450 PRINT"ANY NEW PLAYERS (Y/N)", 
1460 INPUT I$ 

1470 IF I$="N" THEN 1510 

1480 REM INITIALS 

1490 PRINT"YOUR INITIALS (WITHOUT PERIODS)", 
1900 INPUT I$(P):P=P+i 

1510 CLS 

1920 GOTO 440 

1530 REM ALL CHICKENED OUT 

1540 CLS 

1550 PRINT"PLAYERS AND AMOUNTS (YOU" 
1560 PRINT"SHOULD HAVE ON YOU !!)" 
1570 FOR І-0 TO P-1:PRINT I$(12;":"; 
1580 PRINT USING M$;,W(I): NEXT 

1590 PRINT:PRINT"END ..": END 

1600 REM PRINT INITIALS AT LOCATION 
1610 FOR I=0 TO ? 

1620 IF X(I)=0 THEN 1650 

1630 IF X(1)=-99 THEN 1660 

1640 PRINTGL(X(IO))4264,IS$ (I), 

1650 NEXT: RETURN 

1660 PRINTGeL(00464,1$(I); 

1670 X(1)=0:GOTO 1650 


Variables and Strings 


M$ - Print of dollar amount 

P - Number of players 

ЇЇ) - Player's initials 

N(D - User's number selection 

Рр - Digits 0-9 

X(D - User number selected 

А) - User entered amount 

A - Amount on board 

M - Any leftover amount, if not won 

B$ - For playing board (STRING$) 

МЫ - Locations for Print @ for playing board 
L,L(D - Location of the digits 

TM - Pause between the printing of the digits 
G,V - Computer select of digit 

W(I) - User's winnings 


Explanation of the Program Lines 
Lines 100-380 display the general instructions. 
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Lines 390-400 accept the number of players. 

Lines 410-430 accept the initials of the players, without 
separating periods. This is required so that the users' initials can be 
printed in the numeral blocks they have selected. If the user adds 
the separating periods, part of the graphics will be lost. 

Lines 440-460 set subscripted variables to the numerals 1 
through 9. 

Lines 470-530 allow each user to input a number between 0 and 
9. 

Lines 540-620 allow each user to input an amount of money to 
place on board (any amount within reason). 

Lines 630-710 compile all amounts to determine the total on 
board. The variable M will be an amount that is carried over from a 
play nobody won. 

Lines 720-830 display the playing board. 

Lines 840-900 determine the locations of the digits 0-9. Each 
location selected by a user will show his or her initials. 

Lines 910-1080 form the main part of the program. All digits 
are flashed from left to right until TM = 80. Then the computer 
stops at its preselected location. 

Lines 1090-1130 select a random number. 

Lines 1140-1220 print the winner, if there is one, and the 
amount he or she has won. 

Lines 1230-1280 are used when there is no winner. The 
amount on board will remain in the pot until it is won (variable M). 

Lines 1300-1320 allow any player to terminate the program. 

Lines 1330-1440 allow any player to drop out of the game if he 
or she so wishes. If a player does drop out, the names will be re- 
organized so they do not include the name of the player that 
dropped out. 

Lines 1445-1500 allow a new player to join the game, if there 
are less than 10 players. 

Lines 1510-1520 recycle the program with the new number 
selections and bets. 

Lines 1530-1590 display a message when all players have quit 
message and also show the amount each has won. 

Lines 1600-1670 form a subroutine that prints the initials of the 
players at the numeral they have selected. 
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AND IT'S SPOT ONE PULLING AWAY 


| 
FROM SPOT THREE WITH SPOT FOUR | 
RUNNING CLOSE TO SPOT TWO BUT | 
CLOSER TO SPOT THREE WHICH IS | 
PULLING UP ON SPOT ONE | 


LAP-THE-TRACK 


You and 14 others can bet on one of four spots that will dash across 
your video in a race that will last 10 laps. There are programs of 
horse races, dog races, etc., so, you could call this a spot race. After 
selecting a lane and placing your bet, the four spots will begin 
darting across the video. The winner, naturally, will be the spot that 
completes the 10 laps first. Each spot will have an equal opportunity 
to win, dependent upon the random function. All monies are divided 
equally should more than one person bet on the winning lane. Note 
that the IBM version of this program is included in Appendix A, and 
the Apple version in Appendix B. 


Sample Run 

--: LAP-THE-TRACK :-:- 
INSTRUCTIONS? YES 

UP TO FIFTEEN PEOPLE BET ON 

THE FOUR MOVING SPOTS THAT WILL 
BE IN A FAST RACE TO THE FINISH. 

A COMPLETE RACE CONSISTS OF 

10 LAPS. EACH PLAYER WILL BE 
ABLE TO CHOOSE A LANE (1-4) 
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START 


INSTRUCTIONS 


NUMBER 
PLAYING 


INITIALS OF 
PLAYERS 


LANE SELECT 
AND AMOUNTS 


GRAPHICS 
OF TRACK 


ond 


MESSAGES 


PLACE AMOUNTS 
ON SELECT LANE 


BEGIN RACE 


t mn (—— 


CONTINUE RACE 


Y 


OUTPUT WINNERS' 
AMOUNTS 


RACE AGAIN xe STOP ) 


Flowchart for Lap-the-Track. 
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- LANE 1:1 
- LANE 2:2 
- LANE 3:2 
- LANE 4:1 


Al LANE 3.....$4.00 
| LANE 4.....$2 00 


AND HOW MUCH THEY WANT TO BET 
ON THE CHOSEN LANE. IF THERE 
ARE NO WINNERS, THE COMPUTER 
WILL PLACE THE MONEY ON A 

LANE OF ITS CHOICE IN THE 


PRESS ENTER? 


NEXT RACE. IF THE COMPUTER'S SPOT 
(LANE) HAPPENS TO WIN, IT WILL 

NOT TAKE THE MONEY, IT WILL 

JUST BET ON ANOTHER LANE. 

SO NO MATTER HOW YOU SLICE IT, 
SOMEONE IS BOUND TO WIN (SO 

YOU CAN USE REAL MONEY IN 

THIS GAME TOO). 

HOW MANY TO PLAY? 4. 


INITIALS, PLEASE? A.A. 
? Б.В. 
? С.С. 
? D.D. 
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YOU WILL NOW SELECT A LANE. 
A.A. LANE NUMBER? 1. 
BET WHAT AMOUNT? 2 


B.B. LANE NUMBER? 4. 
BET WHAT AMOUNT? 2 


C.C. LANE NUMBER? 3 
BET WHAT AMOUNT? 4 


D.D. LANE NUMBER? 2. 
BET WHAT AMOUNT? 5. 


IF MORE THAN ONE PLAYER WINS 
(SELECTION OF THE SAME LANE) 
ALL MONEY WILL BE DIVIDED AS 
EQUALLY AS POSSIBLE. 


PRESS ENTER TO START THE RACE? 


Program Listing 


i0 
20 
30 
40 
20 
60 
70 
80 
90 
100 
110 
120 
130 
140 
120 
160 
170 
180 
190 
200 
210 
220 
230 
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REM PROGRAM TITLE: LAP-THE-TRACK 

CLEAR 200:RANDOM: CLS 

PRINT"-:-: LAP-THE-TRACK .-:-" 
PRINT:DIM A$(157,A(15),LAC19),T(15) 
INPUT"INSTRUCTIONS",AS$ 

IF A$S<?"Y" AND А$ <) "YES" THEN 300 
FRINT"UP TO FIFTEEN PEOPLE BET ON" 
PRINT"THE FOUR MOVING SPOTS THAT WILL" 
РБІМТ"БЕ IN A FAST RACE TO THE FINISH." 
PRINT"A COMPLETE RACE CONSISTS OF" 
PRINT"10 LAPS. EACH PLAYER WILL BE" 
PRINT"ABLE TO CHOOSE А LANE (1-4)" 
PRINT"AND HOW MUCH THEY WANT TO BET" 
PRINT"ON THE CHOSEN LANE. IF THERE" 
PRINT"ARE NO WINNERS, THE COMPUTER" 
PRiNT"WILL PLACE THE MONEY ON A" 
FRINT'LANE OF ITS CHOICE IN THE" 
PRINT.INPUT"KEY ENTER"';AS 

CLS 

PRINT"NEXT RACE. IF THE COMPUTERS SPOT" 
PRINT" (LANE) HAPPENS TO VIN, IT WILL" 
FRINT"NOT TAKE THE MONEY, IT WILL" 
PRINT"JUST BET ON ANOTHER LANE " 


240 
290 
260 
270 
300 
310 
320 
330 
340 
350 
360 
379 
380 
3?0 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
910 
220 
530 
540 
250 
560 
570 
580 
285 
290 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 


РНІМТ"50 NO MATTER HOW YOU SLICE ІТ," 


PRINT' SOMEONE IS BOUND TO VIN (SO" 
PRINT" YOU CAN USE REAL MONEY IN" 
PRINT" THiS GAME ТОО ›" 

PRINT 

INPUT"HOV MANY TO PLAY',;A 

IF А<1 ОН А215 THEN 320 
PRINT"INITIALS, PLEASE", 

FOR Ісі TO A 

INPUT AS(IDO NEXT 

PRINT 

PRINT “YOU WILL NOW SELECT A LANE." 
I=1 

PRINT А5(1);" LANE NUMBER"; 

INPUT LACT) 

IF LACID«1 OR LA(IO»4 THEN 390 
PRINT" BET WHAT AMOUNT" ; 

INPUT ACI) 

[=1+1 

IF I>A THEN 480 

PRINT 

GOTO 390 

CLS:GOSUB 1300.IF 22-1 THEN 530 
PRINT" IF MORE THAN ONE PLAYER WINS" 
PRINT' (SELECTION OF THE SAME LANE)" 
PRINT 'ALL MONEY WILL BE DIVIDED AS" 
PRINT" EQUALLY AS POSSIBLE " 
PRINT. IF СВ-1 THEN 960 


PRINT" PRESS ENTER TO START THE RACE"; 


INPUT A$:CLS 

REM OUTER OF TRACK 

FOR X=0 TO 127 
SETCX,Q):SET(X,47) 
SET(X,15):SET(X,31):NEXT 

FOR Z=1 TO 15 
SET(CO,X):SET(127,X) : NEXT 

FOR X-31 TO 47 
SETCO,X):SET(127,X) : NEXT 

REM SPOT POSITIONS / MESSAGES 
GOSUB 1200:GOSUB 1410:Lz1:12-384 
LOLO)SI:R(OLOZI:P(L)21-300:LP(L)2z0 
1=1+64:ІЕ L>=4 THEN 680 
L=L+1:GOTO 620 

FOR Ісі TO 4 
PRINT@L(I),CGHR50143); : NEXT 

REM START RACE 
ІР=0:Х$=СНАК (143) : PÁÉZL(12463 
IzRND(4):M-ABS(I-3) 
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730 PRINTGL(I2," "; 

740 IF ABS(L(I)-R¢(I)))>=50 THEN 1000 
750 L(I)=L(I)+RND(14) 

760 РКІМТЕӨІ(1),Х5; 

770 IF М+1‹›1 AND M+i¢>5 THEN 790 
780 GOTO 820 

790 PRINT@L(M+i)," ", 

800 L(M+1j=L(M+1)+RND( 4) 

810 PRINT@L(M+1),&5,; 

820 IF М-1(21 AND М-1<20 THEN 840 
830 GOTO 870 

840 PRINTGL(M-1)," "; 

850 L(M-1)=L(M-1)+RND(4) 

860 PRINTGL(M-1)2,X5, 

870 IF M+2¢>5 AND M+2¢>6 THEN 890 
880 GOTO 720 

890 PRINT@L(M+2)," "; 

900 L(M+2)=L(M+2)+RND( 4) 

910 PRINTƏL(M+2) , XŠ, 

920 PRINT@L(M)," "'; 

930 L(M)=L(M)+RND(4) 

940 PRINT@L(M) ,&S, 

950 GOTO 720 

960 CB=0:PRINT"THE COMPUTER WILL PLACE" 
970 PRINT'"THE AMOUNT OF";USING АА%;АМ 
980 RF-RND(42.PRINT"ON ГАМЕ"; КЕ; " 
985 MNRF) =ММ‹ КРЕ) + АМ: АМ= 0 

990 GOTO 540 

1000 PRINTGL(I)," ", 

1010 L(I)=R(1) 

1020 ІРІ) ЕРІ) +1: РКІМТЕР(І), ЕРСІ); 
1030 IF LP(I)>=10 THEN 1500 

1040 GOTO 720 

1200 PRINTG66,"LAPS ~ LANE 1:"'; 

1210 PRINT@130,"LAPS ~ LANE 2:"; 

1220 PRINT@194,"LAPS - LANE 3:''; 

1230 PRINTG0258,"LAPS - LANE 4:"; 

1240 REM AMOUNTS PER LANE 

1250 PRINT@706,"LANE 1.....%; 

1260 PRINT@770,"LANE 2..... 
1270 PRINT@834, "LANE 3.....'; 
1280 PRINT@898,"LANE 4 
1290 RETURN 

1300 REM AMOUNTS ON LANES 
1310 T=1 

1320 FOR I=1 TO А 

1330 IF LA(125-zT THEN 1350 
i340 NEXT:GOTO 1370 
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1350 MN((TOzMN(T) +А(І) 

1360 GOTO 1340 

1370 T=T+i 

1380 IF T>=5 THEN 1400 

1390 GOTO 1320 

1400 RETURN 

1410 REM PRINT AMOUNTS 

1420 AAS$-"$549,8HH4H. #4" 

1430 І-і:ЕҒ-718 

1440 PRINTGFF,USING AA$;MN(I); 
1450 T=I+1:FF=xFF+64 

1460 IF I»z5 RETURN 

1470 GOTO 1440 

1500 REM FINISH 

1910 WWzi 

1920 PRINT@P(I)+6, "WINNER"; 
1530 FOR TU=1 TO 200: NEXT 

1540 PRINT@P(1)+6,STRINGS (6,32); 
19950 FOR TU-1 TO 50:NEXT 

1560 IF WW»-6 THEN 1580 

1570 WW=WW+1:GOTO 1520 

1580 REM PLAYER LANE SELECT 
1590 WW=0 

1600 FOR T=1 TO A 

1610 IF LACT)=I THEN 1630 

1620 NEXT:GOTO 1650 

1630 Ww=WW+1 : T( WW) =T 

1640 GOTO 1620 

1690 FOR I=1 TO 4:АМ-АМ-«ММ(І):ММ12-0 
1660 NEXT:IF WW=0 THEN 1760 
1670 PRINTG735,"WINNER(íS):"; 
1680 МХ-799 

1690 FOR I=1 TO WW 

1700 PRINTGWX,AS(OT((IO); 

1710 IF WW)1 PRINT',"; 

1720 WxX=WX+5 :NEXT 

1725 IF WWz1 THEN 1790 

1730 PRINT@863,"EACH WINNER RECEIVES:"; 
1740 PRINT@?27,USING АА%;АМ/ММ; 
1750 AM=0:GOTO 1820 

1760 PRINT@P(1)4+15,; 

1770 PRINT"** NO WINNERS хх"; 
1780 GOTO 1870 

1790 PRINT@863, ; 

1800 PRINT "YOU WILL RECEIVE:"; 
1810 GOTO 1740 

1820 REM ANOTHER 

1830 PRINTG384,; 
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1840 INPUT"ANOTHER RACE (Y/N)?",;A$ 

1850 IF A$="N" THEN 2000 

1860 CLS:ZZz1:GOTO 360 

1870 FOR TU-1 TO 1200:NEXT 

1880 PRINTGP(1)412,;7; 

1890 PRINT"IF ANOTHER RACE IS HELD, THE"; 
1900 PRINT@P(2)+12Z, ; 

1910 РКІМТ"СОМРОТЕК WILL BET THE MONEY"; 
1920 PRINTGP(3)412,;7; 

1930 РНІМТ"ОМ A LANE IT SELECTS.",; 

1940 CB=1:GOTO 1820 

2000 REM END 

2010 CLS 

2020 PRINT' FAREWELL ‘TIL THE NEXT RACE." 
2030 END 


Variables and Strings 

A - Number playing (1-15) 

А%() - Initials of players 

LA(I) - Lane number selected by the user 

CB - 0/1 to stop or race again 

L(L) - Spot positions, start/continue 

R(L) - Spot positions, greatest amount 

P(L), LP(L) - Win location 

M - Distance to move 

RF - Lane selected by the computer if required 


NANI/TN Pantal ы 
MND - Total amount in bets 


AM - Amount carried over from previous race 
AA$ - Amount messages 
FF - Print @ location for message 


Explanation of Program Lines 

Lines 10-270 display the general instructions. 

Lines 300-360 accept the number of players and their initials. 

Lines 370-470 allow each player to select a lane (1-4) and enter 
the amount he or she wants to bet. 

Line 480 is explained at lines 1300-1400. 

Lines 490-550 display a message concerning the betting. 

Lines 560-620 draw the outer boundaries of the track. 

Lines 640-690 establish the locations of the spot and display 
messages. 

Lines 700-950 print all four spots and keep them moving to 
right. Random amounts are added to each, dependent upon variable 
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M. Laps are increased by one for each spot when ABS(L(D— 
R(D)» = 50. The first to reach 10 laps is the actual winner. 

Lines 960-990 allow the computer to select a lane and an 
amount to bet. 

Lines 1000-1040 work in conjunction with lines 700-950, 
clearing the screen and counting the laps. 

Lines 1200-1290 display messages that appear during the race. 

Lines 1300-1400 tally the amounts bet on each lane MN(T) 
using the individual bets А(). 

Lines 1410-1470 print all bets as the race begins. The amount 
of each bet is placed beside the track that it was bet on. 

Lines 1500-1810 print the names of all the winners and how 
much they won. If there 1s no winner, the amount bet will be carried 
over. If more than one player wins on the same track, the total 
amount bet will be divided equally between those players. 

Lines 1820-2030 ask if the users want to race again and recycle 
the program or terminate appropriately. 
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can't tell 
you again 


What was that 
clue word? 


PARTNERS 


How well you depend upon your partner will be determined during 
this game. Up to 10 players (5 partners) can compete against one 
another. There will be 5 words. One player will view the word ; the 
video will clear ; then the other player takes the keyboard. The first 
player, who viewed the word, will give his or her partner clues as to 
what the word is. One minute will be given to enter all 5 point 
words. The winners are the partners who get the most words 
correct. 


Sample Run 


PARTNERS 
INSTRUCTIONS BEFORE PLAY? YES 


HOW MUCH DO YOU RELY ON YOUR 
PARTNER? IF YOU RELY ON HIM 

OR HER TO THE FULLEST, THIS 
GAME WILL SURE TELL. THIS 

GAME REQUIRES AT LEAST 2 
PLAYERS; WHILE UP TO 10 CAN 
PLAY. 

THE OBJECT OF THE GAME IS TO 
INPUT 5 WORDS BEFORE A MINUTE 
HAS ELAPSED. EACH TEAM WILL 
SELECT WHO WILL SEE THE 

WORD. AFTER SEEING IT THE PLAYER 
WILL PRESS ENTER. THE SCREEN 
WILL CLEAR. 
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START 


Y 


PRINT 
INSTRUCTIONS 


T 


NUMBER 
TO PLAY 


= 


08 


GET PARTNERS. 
NAMES 


READ 
WORD DATA 


TIME 
EXPIRED 


MESSAGE 
Y TIMES EXPIRED 


N 
STOP 
ADVANCE TO 
NEXT PARTNERS 


GET ONE 
WORD 


PRINT WORD 


N 


2000(LOOP} 


Y 


CLEAR 
VIDEO 


PARTNER 
ENTRY 


COMPARE 
WORDS 


CONTINUE 
WORD ENTRY |М 


4 


Flowchart for Partners. 
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PRESS A KEY 


YOUR PARTNER (WHO SAW THE 
WORD) WILL THEN GIVE YOU CLUE 
WORDS TO WHAT IT MIGHT BE, BUT 
NOT THE ACTUAL WORD ITSELF. 
YOU WILL THEN START INPUTTING 
GUESSES OF WHAT YOU THINK THE 
WORD IS. AS SOON AS YOU HAVE 
INPUT THE CORRECT WORD, 
TIMING WILL STOP. YOU AND YOUR 
PARTNER WILL CHANGE PLACES, 
CHANGE PLACES, 

AND YOUR PARTNER 

WILL VIEW 

ANOTHER WORD, UP 

TO A TOTAL OF 5. 


PRESS A KEY..... 


REMEMBER THAT YOU'LL ONLY HAVE 
ONE MINUTE TO ENTER ALL 5 WORDS 
(EXCEPT FOR CHANGING TO REVIEW 

ANOTHER WORD). 


NUMBER PLAYING? 5 
EVEN NUMBER ONLY... 


NUMBER PLAYING? 4 

NOW ENTER THE 4 PEOPLE 
THAT WILL BE PARTNERS, 
AS EACH WILL PLAY. 


Program Listing 


10 REM PROGRAM TITLE: PARTNERS 
20 CLEAR $00:CLS 
30 RANDOM: DIM W$(502,W(500,T(11D) 
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40 PRINT"PARTNERS" 

30 PRINT 

60 INPUT"INSTRUCTIONS BEFORE PLAY (Y/N)';XS 
70 IF X5-"N" OR X$="NO" THEN 470 

80 PRINT"HOW MUCH DO YOU RELY ON YOUR" 
90 PRINT"PARTNER? IF YOU RELY ON HIM" 
100 PRINT"OR HER TO THE FULLEST, THIS" 
110 PRINT"GAME WILL SURE TELL THIS" 

120 PRINT"GAME. REQUIRES AT LEAST 2" 

130 PRINT"PLAYERS, WHILE UP TO 10 CAN" 
140 PRINT"PLAY." 

150 PRINT"THE OBJECT OF THE GAME IS TO" 
160 PRINT"INPUT 5 WORDS BEFORE A MINUTE" 
170 PRINT"HAS ELASPED. EACH TEAM WILL" 
180 PRINT"SELECT WHO WILL SEE THE " 

190 PRINT"WORD. AFTER SEEING IT THE PLAYER" 
200 PRINT"WILL PRESS ENTER; THE SCREEN" 
210 PRINT"WILL CLEAR." 

220 FOR Т-і TO 5000:МЕХТ :PRINT 

230 PRINT"PRESS À KEY" 

240 X$=INKEYS:IF X$="" THEN 240 

250 PRINTG0O,CHR$630) 

260 PRINT"YOUR PARTNER (WHO SAW THE " 

270 PRINT"WORD) WILL THEN GIVE YOU CLUE" 
280 PRINT"WORDS TO WHAT IT MIGHT BE, BUT" 
290 PRINT"NOT THE ACTUAL WORD ITSELF." 
300 PRINT"YOU WILL THEN START INPUTTING" 
310 PRINT"GUESSES OF WHAT YOU THINK THE " 
320 РНІМТ"МОНр IS. AS SOON AS YOU HAVE" 
330 PRINT"ENTERED THE CORRECT WORD" 

340 РВІМТ"ТІМІМС WILL STOP. YOU AND YOUR" 
350 PRINT"PARTNER WILL CHANGE PLACES," 
360 PRINT"AND YOUR PARTNER WILL VIEW" 

370 PRINT"ANOTHER WORD, UP" 

380 PRINT"TO А TOTAL OF 5." 

390 PRINT 

400 PRINT"PRESS A KEY..... й 

410 XS5sINKEYS:IF X$="" THEN 410 

420 CLS 

430 PRINT"REMEMBER THAT YOU'LL ONLY HAVE" 
440 PRINT"ONE MINUTE TO ENTER ALL 5 WORDS" 
450 PRINT"(EXCEPT FOR CHANGING TO" 

460 PRINT"REVIEW ANOTHER WORD.)" 

470 PRINT 

480 INPUT"NUMBER PLAYING",& 

490 IF ІМТ(Х/22%252% THEN 510 
500 GOTO 530 

510 PRINT"EVEN NUMBER ONLY..." 
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520 PRINT: GOTO 480 
530 IF X210 THEN PRINT:GOTO 480 

540 PRINT"NOW ENTER THE";X;" PEOPLE" 

550 PRINT'"THAT WILL BE PARTNERS," 

560 PRINT"AS EACH WILL PLAY." 

570 I=1:M=2 

580 INPUT Q$(ID 

590 IF I=M THEN 610 

600 I=sI+1:GOTO 580 

610 IF ІзеХ THEN 630 

620 І=1+1:М=М+2: PRINT:GOTO 580 

630 REM GET POINT WORD LIST 

640 FOR І-і TO 50:READ W$(I) 

550 W(I)=I:NEXT:WM=0 

660 I=1 

670 CLS:WwWsz"" | 

680 PRINT Q$(1I);" YOU WILL NOW VIEW THE" 
690 PRINT"WORD. PRESS ENTER WHEN" 

700 PRINT"READY. YOU'LL HAVE 5 SECONDS" 
710 PRINT"TO RECOGNIZE AND REMEMBER ІТ"; 
720 INPUT X5 

730 REM СЕТ А WORD 

740 W=RND(50) 

750 IF М(М9--99 THEN 740 

760 W$2W$(W):W(V)2-99:CLS 

770 PRINT"THE WORD: ";W$ 

780 FOR T=1 TO 2000:NEXT:CLS 

790 PRINT Q$(1);" GET YOUR PARTNER" 

800 PRINT 0$(1+1)," TO THE COMPUTER." 

810 PRINT"TIMING WILL BEGIN (OR RESUME)" 
820 PRINT"WHEN YOU PRESS ENTER ";Q%(I+1); 
830 INPUT X$ 

840 CLS 

850 PRINT"INPUT YOUR WORD THROUGH INKEYS." 
860 PRINT"PRESS THE CLEAR KEY AS SOON" 
870 PRINT"AS YOU ARE FINISHED, ";Q$(I«1);". 
880 PA=256:PRINT@384,"TIME:"; 

890 PRINTG393,"SECONDS";:IF ТМ(20 THEN 910 
900 TM-0:REM TIME RESET 

910 PRINTGPA,CHR$(143), 

920 V$=INKEY$ 

930 IF LEN(V$)<)0 THEN 1050 

940 IF V$="" THEN 960 

950 PRINT@PA,V$;:GOTO 1010 

960 FOR TI-1 TO 25:МЕХТ 

970 TM=TM+.2.PRINT@389,INT(TM) ; 

980 PRINTGPA,CHR$(32); 

990 FOR ТІ=1 TO 35:МЕХТ 


"t 
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1000 IF ІМТ‹ТМ) =60 THEN 1370 ELSE GOTO 910 
1010 REM WORD 

1020 WW$zWW$«V$ 

1030 РА=РА+1 

1040 GOTO 970 

1050 REM WORD FINISHED 

1060 IF ASC(V$2231 THEN 1080 

1070 GOTO 940 

1080 PRINT@PA,CHR$(32),; 

1090 IF WW$«»W$ THEN 1110 

1100 GOTO 1160 

1110 PRINTG512,"THAT IS NOT THE WORD pg 
1120 FOR ТІ=1 TO ?00:NEXT 

1130 PRINT@256,CHRS(30>); 

1140 PRINTGS12,CHR$«((30); 


1150 WW$="":GOTO 880 
1160 РНІМТӨ512,; 
1170 PRINT'THAT IS CORRECT, "309 CIM-12;" "L9 


1180 IF ММ>-4 THEN 1260 

1190 WMzWM-«i 

1200 PRINT"PLEASE CALL ";05(12;" TO THE" 
1210 PRINT"COMPUTER FOR ANOTHER " 
1220 PRINT"WORD VIEWING, ";Q$CI-12,;,"." 
1230 PRINT Q$š(I);" PRESS ENTER", 

1240 INPUT X$: WW$a"" 

1250 GOTO 670 

1260 FOR ТІ=1 TO 2000:NEXT:CLS 

1270 PRINT"THAT IS ALL";WM;"WORDS." 
1280 PRINT"YOU STILL HAD";60-INT(TM) 
1290 PRINT'SECONDS REMAINING." 

1300 Т(І)-60-ІМТ(ТМ) 

1310 IF I+1>=X THEN 1400 ELSE I=I+2 
1320 PRINT"IT IS NOW ",Q$C(1I);" AND "; 
1330 PRINT G$ (I+1 );"'8 TURN." 

1340 PRINT"PRESS ENTER WHEN READY"; 
1350 INPUT X6 

1360 TM=0:WM=0.GOTO 670 

1370 РНІМТӨ512,; 

1380 PRINT"YOUR TIME HAS EXPIRED рр" 
1390 GOTO 1300 

1400 REM ARRANGE TIMES 

1410 REM BEST TO WORST 

1420 I=1:J=0 

1430 IF T(I)>=T(I+2) THEN 1460 

1440 T=T(I1): T(I)=T(I+2).T(I+2)=T:J=1 
1445 Vš (I)=Q$5 (1): VŠ$S (I+1)=QS (I+1) 

1450 Qš(I)=Q$(I+2) Q$ (I+1)=Q5 (1+3) 
1455 06 (Ііз23-У5(1):05( Іж32-У59 (1+1) 
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1460 
1470 
1480 
1490 
1500 
1510 
1320 
1530 
1540 
1550 
1560 
1970 
1980 
1590 
1600 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2070 
2100 
2110 
2120 
2130 


2140 


І-і-2 
І>Х ТНЕМ 1490 


IF 
GOTO 


IF Jz 


1430 
1 THEN 1420 


FOR TI=1 TO 2000:МЕХТ 


CLS 


PRINT' PLAYERS 


/ TIME CONSUMED" 
OF TIME " 


4 m ға ж 


Jz2:FOR I=1 TO X STEP 2 


PRINT 95(1);" & 
PRINT' 
FOR TIzi 
PRINT 


"%0а%%47); 
CONSUMED"; 60-T(I); "SECONDS." 
TO 900:МЕХТ TI:J=J+2:NEXT I 


PRINT"END OF RUN... ." 


END 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
БАТА 
БАТА 


TELEVISION,ACCOMMODATE, TERRACE 
STEAM,CONCLUSION,AFFIRMATIVE 
SECTION, JOGGING, CIRCLE 
GEOMETRIC ,CONFUSE, THIRSTY 
STOCK, PURGE, VANDALIZE, PERMIT 
REDUCE, LIMIT, GLANCE, TARGET 
ZODIAC,WIND,WEATHER, FRAGRANCE 
MATERAL,SUSPENSE, BLISTER 

ALUM, AMBIENT, COMMUNICATE 
BYPASS,GULP,FOREIGNER,MORTGAGE 
RECOMMEND, PYRAMID, TENDER 
RECOVER, BRIDGE, WANDER, WALK 
COMPUTER, CORRESFOND,MATH 
BLIZZARD, ASHTRAY, HOUSE 

AMOUNT, PROFESSION, DEMAND 


Variables and Strings 


X - Number of players, there must be an even number playing 


ӨСІ) - Players’ names 

W$(D - Words 

WD) - For word deleted 

WM - Word count 

WWS$ - Total word entered (V$) 

W$ - Current word selected 

PA - Print @ location for letter entry 
TM - Time loop 

V$ - Entry of word through INKEY$ 


T(D - Total time consumed by current partners 
I - Player count to go on to the next set of partners 
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Explanation of Program Lines 


Lines 10-470 display the general playing instructions. 

Lines 480-530 request the number of players. This must be an 
even number and is tested by line 490. 

Lines 540-620 request the players to input their names in 
pairs. 

Lines 630-650 read the words to be guessed from the data 
lines. 

Lines 660-720 display a message. 

Lines 730-760 select a word to be guessed. If the word has 
already been used, it will be deleted by setting W(W) —-- 99. 

Lines 770-780 prints the word so that one of the partners can 
see it. 

Lines 790-830 display a message for the other players (player 
2). 

Lines 840-1040 accept the input of the word guess by player 2 
by using the INKEY$ function to form ММФ. Timing is kept by the 
variable TM which is advanced by +.2. If the integer of TM = 60, 
one minute has elapsed. If player 2 has entered the word and 
pressed the clear key (line 1060) the program will branch to line 
1080. 

Lines 1050-1070 test for the pressing of the clear key. 

Lines 1080-1250 determine whether or not the correct word 
was entered. If it was, another word will be selected, if WM< = 4in 
line 1180. If it wasn't, the same word will be given again. In either 
case continuing depends on the value of INT(TM), the amount of 
time that has elapsed. 

Lines 1260-1300 display a message indicating that all five 
words have been entered and showing the amount of time remain- 
ing. 

Lines 1310-1360 advance to the next set of partners (if there 
are more). 

Lines 1370-1390 display the time-expired message. 

Lines 1400-1490 arrange the times for each set of partners 
from best to worst. 

Lines 1500-1600 display the partners’ names and the total 
amount of time it took them to enter all five words. 

Lines 2000-2140 are data lines containing all the words to be 
guessed. 
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POINT À TO POINT B 


This is one maze game you'll find hard to get away from. Unlike 
when you use the ordinary maze game (pressing different keys for 
different directions), you'll enter all of your directions and spaces 
before any movement takes place. Don't write down all the direc- 
tions and spaces; you'll be wasting your time! The maze changes 
with each player or run. Note that the IBM version of this program 
is included in Appendix А. 


Sample Run 


< FROM POINT A > 
< TO POINT B > 


INSTRUCTIONS (Y/N)? Y 
NUMBER TO PLAY (1-10)? 1 


ARE YOU CONFUSED BY THE MANY 
DIFFERENT MAZE GAMES THAT ARE 
CURRENTLY ON THE MARKET? HAVE 
NO FEAR!! FROM POINT A TO 

POINT B IS HERE!! 
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START 


NUMBER 
OF PLAYERS 


IFG-1 
PRINT INSTRUCTIONS 


PLAYERS 
NAMES 


MAZE 
GRAPHICS 


CURRENT PLAYER 
INPUT DIRECTION 
CARRY OUT ALL 


NUMBER OF 
SPACES 
INSTRUCTIONS 


COMPUTER TO 


ADVANCE TO 
NEXT PLAYER 4 


SUCCESSFULLY 
TO POINT B 


Y 
MESSAGE 


MESSAGE 


Y 
OUTPUT ALL 
THAT MADE IT 


Flowchart for Point A to Point B. 
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DIRECTION (L,R,U,D)? — 


ACTUALLY, THIS IS NOT YOUR 
RUN-OF-THE-MILL MAZE GAME. 

WHAT IT IS IS A MAZE GAME THAT 
WILL PROBABLY CONFUSE YOU MORE 
THAN EVER. YOU SEE, YOU WILL 

NOT BE CONSTANTLY BE PRESSING 
DIFFERENT KEYS FOR DIFFERENT 
DIRECTIONS; YOU'LL INPUT ALL 


PRESS ENTER? 


OF THE INSTRUCTIONS BEFORE YOU 
MOVE AT ALL; UP SO MANY 

SPACES, RIGHT SO MANY SPACES, 
LEFT SO MANY SPACES, ETC., ETC. 
AFTER YOU HAVE ENTERED ALL 
YOUR INSTRUCTIONS, 

YOU WILL INPUT XX. AT THAT 

POINT YOUR PIECE WILL BEGIN 

TO MOVE ACCORDING TO THE INSTRUCTIONS 
YOU GAVE. IF AT ANY POINT YOU 
COLLIDE WITH ANYTHING, 

IT IS THE END OF YOUR 

TURN... 


PRESS ENTER, AGAIN? 
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ENTER THE FIRST NAMES OF 
THE 1 PLAYERS, PLEASE 
? DAVE 


TO BEGIN DAVE, PRESS ENTER 


Program Listing 


10 

20 

30 

40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


360 
370 
380 


REM PROGRAM TITLE: 

REM FROM POINT À TO POINT B 

CLEAR 300: RANDOM: CLS 

PRINT"«4 FROM POINT A >" 

PRINT'< TO POINT B >" 

PRINT:DIM D$(502),S(50) 

INPUT" INSTRUCTIONS (Y/N)"';W$ 

IF W$z"N'" THEN Gel 

INPUT"NUMBER TO PLAY (1-10)";А 

IF A<1 OR А210 THEN 90 

IF Gi THEN G=0:GOTO 410 

PRINT"ARE YOU CONFUSED BY THE MANY" 
PRINT"DIFFERENT MAZE GAMES THAT ARE" 
PRINT"CURRENTLY ON THE MARKET? HAVE" 
PRINT"NO FEAR!! FROM POINT A TO" 
PRINT"POINT B IS HERE!!" 
PRINT"ACTUALLY, THIS IS NOT YOUR" 
PRINT"RUN-OF-THE-MILL MAZE GAME." 
PRINT"VHAT IT IS IS А MAZE GAME THAT" 
PRINT"WILL PROBABLY CONFUSE YOU MORE" 
PRINT' THAN EVER. YOU SEE, YOU WILL" 
PRINT"NOT BE CONSTANTLY PRESSING" 
PRINT" DIFFERENT KEYS FOR DIFFERENT" 
PRINT" DIRECTIONS; YOU'LL INPUT ALL" 
INPUT" PRESS ЕМТЕН";М 

CLS 

PRINT"OF THE INSTRUCTIONS BEFORE YOU" 
PRINT'"MOVE AT ALL: UP SO MANY" 
PRINT"SPACES, RIGHT SO MANY SPACES," 
PRINT"LEFT SO MANY SPACES, ETC.,ETC." 
PRINT'"AFTER YOU HAVE ENTERED ALL" 
PRINT'OF YOUR INSTRUCTIONS," 
PRINT"YOU WILL INPUT XX. AT THAT" 
PRINT"POINT YOUR PIECE WILL BEGIN" 
PRINT"TO MOVE ACCORDING TO THE 
INSTRUCTIONS" 

PRINT' YOU GAVE. IF АТ ANY POINT YOU" 
PRINT'"COLLIDE WITH ANYTHING " 
PRINT"YOUR TURN ENDS.":PRINT 
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400 INPUT"PRESS ENTER, AGAIN";W 

410 CLS 

420 REM PLAYERS 

430 REM PLAY IN ORDER OF ENTRY 

440 PRINT"ENTER THE FIRST NAMES OF" 
450 PRINT"THE";A;"PLAYERS, PLEASE" 
460 FOR I=1 ТО A:INPUT А$ (1) 

470 NEXT: L=1:MX=0 

480 PRINT 

490 PRINT"TO BEGIN ";A$(L);", PRESS ENTER"; 
500 INPUT W 

510 REM GRAPHICS 

520, CLS:FOR Х-0 TO 127 

530 SET(X,0):SET(X,39) :NEXT 

540 FOR X-1 TO 38 

550 5ЕТ(0,Х):5ЕТ(127,Х):МЕХТ:60ТО 580 
560 PRINT@65,STRING$(62,140); 


965 D=RND(110):IF D(102 THEN 565 

570 PRINT@D,STRINGS (2,32); : RETURN 

580 GOSUB 5360:PRINTG19?93,STRING9$(12,131)7, 
590 PRINT@220,STRING$(1i1,131);:GOTO 620 
600 PRINTO232,STRING$(22,131); 

605 D=RND(252):I1F D(Z240 THEN 605 

610 PRINT@D,STRINGS$ (2,32); : RETURN 

620 GOSUB 600: М=30: Мі=5 6: М2=6 :М3=12: СОТО 670 
630 FOR X=M ТО M1:SET(X, M2)? 

640 SET(X,M3):NEXT:FOR Х=М2+1 TO М3-1 
650 SET(M,X):SET(M+1,X):SET(H1- 1 , X) 
660 БЕТСМІ,Х):МЕХТ:НЕТУНМ 

670 GOSUB 630 

680 M=1:Mi=15:M2=12:M3=17:GOSUB 630 
690 Mz19?:M1-28:GOSUB 630 

700 M=M1+3:Mi=M1+72:M2=M3~-2:M3=M3+6 
710 GOSUB 630 

720 М-Мі»4:Мі-Між27:М2-М2%6:М3-М3%6 
730 GOSUB 630 

740 Mzs1:M1z28:GOSUB 630:GOTO 770 

750 PRINTGS9?90,STRING$(38,131); 

752 PRINTG371,STRING$(12,131); 

255 D=RND(626):IF 0‹590 THEN 755 

758 F=RND(381):IF Fí(371 THEN 758 

760 PRINT@D,STRINGS (2,32); 

765 PRINTGF,STRING$(2,32); RETURN 

770 GOSUB 750:M1=M1-4:M2=M3+2:M3=M3 +6 
775 GOSUB 630 

780 М=М1+4:Мі=М1+1 4 

790 GOSUB 630 

800 IF M>=112 THEN 880 
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810 GOTO 780 

820 M-M-15:M1-zM«10:M2z2:M3-5 

830 GOSUB 630 

840 М-М-14:М1-Мж»12:М2-М3ж3:М3-М34%8 
850 GOSUB $630 

860 M=M-15:Mi=M+4:M2=4:M3=6 

870 GOSUB 630:RETURN 

880 REM START / STOP LOCATIONS 

890 GOSUB 820:ХХ-1:Ү-37.Х-2:Х2-125 
900 X1-zRND(CX2) 

910 RESET(X-1,Y) 

920 XzX«1 

930 SET(X,Y) 

940 ХХ=ХХ+1:ІЕ G-1 AND XX>=150 THEN 1000 
950 IF X=X1 AND XX)=50 THEN 1000 
960 IF X»?-X2 THEN 980 

970 GOTO 900 


980 RESET(X,YO:RESET(X-1,Y) 

990 X=2:GOTO 900 

1000 XX=1:PRINT@896,;:I1F G=1 THEN 1110 
1010 PRINT" THIS IS POINT A (START) " 
1020 RESET(X,YO : RESET(X-1,Y) 

1030 FOR Т-і TO 50:МЕХТ 

1040 SET(X,YD 

1050 FOR Т-1 TO 25:МЕХТ:ХХ-ХХч1 

1060 IF XX(-10 THEN 1020 

1070 IF G=i THEN 1150 ELSE JJ-X 

1080 G-1:PRINT68?6,CHR$C30) 

1090 PRINT@896,"LOOK AT THE TOP (POINT B)." 
1100 X=2:¥=2:XX=1:X1=1:X2=90:GOTO 900 
1110 PRINT@896,CHRS(30) 

1120 PRINTG896,;7; 

1130 PRINT"THIS IS POINT B (STOP ZONE)." 
1140 R=X:GOTO 1020 

1150 PRINT@896,CHRS (30) 

1160 GOTO 1216 

1170 РНІМТӨ8%96,; 

1180 RETURN 

1190 FOR Т-і ТО 1200:NEXT 

1200 PRINT@896,CHR$(30):RETURN 

1210 GOSUB 1170 

1220 PRINT"YOU WILL NOW GIVE INSTRUCTIONS" 
1230 GOSUB 1190:GOSUB 1170 

1240 PRINT"TO ENTER THE STOP ZONE..." 
1250 GOSUB 1190:GOSUB 1170 

1260 PRINT"THE STOP ZONE BLOCK MUST BE HIT" 
1270 GOSUB 1190:GOSUB 1170 

1280 PRINT"HEAD-ON TO COMPLETE A RUN." 
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1290 GOSUB 11?0:GOSUB 1170 

1300 Ісі 

1310 INPUT"DIRECTION (L,R,VU,D)";D5 

1320 IF D$=" XX" THEN 1380 

1330 D$(I)=D$:GOSUB 1170 

1340 INPUT"FOR НОМ MANY SPACES";S 

1350 S(I)=S:I=I+1:GOSUB 1170 

1360 IF I>=51 THEN 1430 

1370 GOSUB 1200:GOSUB 1170:GOTO 1310 
1380 GOSUB 1170 

1390 PRINT'"THE COMPUTER WILL NOW CARRY" 
1400 GOSUB 1190:GOSUB 1170 

1410 PRINT'"OUT ALL OF YOUR INSTRUCTIONS. 
1420 Iz2I-1:HzsI:Iz1:X«JJ:Y-37:Gz0 
1425 GOSUB 1190:GOTO 1480 

1430 GOSUB 1170 


1440 РКІМТ"ТНАТ IS THE LIMIT OF THE" 
1450 GOSUB 11?0:GOSUB 1170 


.1460 PRINT"INSTRUCTIONS YOU CAN ENTER." 


1470 GOSUB 1190:GOTO 1380 

1480 D$=D$(1I):S=S¢(1I):J=1 

1390 IF Ds="L" THEN 1540 

1900 IF D$="R" THEN 1580 

1910 IF Ds="U" THEN 1620 

1520 IF D$z"D" THEN 1660 

1530 GOTO 1760:REM BAD DIRECT 
1540 IF POINT(X-1,Y) THEN 1760 
1550 X=X-1:RESET(X+1,Y> 

1560 IF Х‹=0 THEN 1760 

1570 GOTO 1690 

1580 IF POINT(X«1,Y) THEN 1760 
1590 XzX«1:RESET(X-1,Y) 

1600 IF X)=#126 THEN 1760 

1610 GOTO 1690 

1620 IF POINT(X,Y-12 THEN 1760 
1630 YzY-1:RESET(X,Y-«1) 

1640 IF Ү‹=1 THEN 1760 

1690 GOTO 1690 

1660 IF РОІМТ(Х,Үж1) THEN 1760 
1670 Y=Y+1:RESET(X,Y-1) 

1680 IF Y»z39? THEN 1760 

1690 SET(X,Y)D) 

1700 IF S»J THEN 1720 

i710 GOTO 1730 

1720 J=J+1:GOTO 1490 

1730 І=І+і 

1740 IF ІОН THEN HH=1: GOTO 1760 
1750 GOTO 1480 
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1760 GOSUB 1170:1Ғ ABS(k-R)<=1 THEN 2060 
1765 IF HH=1 THEN HH=0:GOTO 1900 

1770 PRINT'"SORRY...YOU HAVE ATTEMPTED" 
1780 GOSUB 1190:GOSUB 1170 

1790 PRINT"A SHORT-CUT THAT DIDN'T WORK." 
1800 REM ANOTHER PLAY? 

1810 GOSUB 1190 

1820 GOTO 1950 

1830 GOSUB 11?0:GOSUB 1170 

1840 PRINT"READY TO TRY AGAIN (Y/N)',;, 
1850 INPUT W5 

1860 IF W$="Y" THEN 1880 

1870 СОТО 2300 

1880 RESET(X,YO:RESET(R,2) 

1890 GOTO 1970 

1900 GOSUB 1170 

1910 РНІМТ"ТНАТ WASN'T ENOUGH ТО СЕТ" 
1920 GOSUB 1190:GOSUB 1170 

1930 PRINT"YOU TO THE STOP ZONE ";ASK(L) 
1940 GOTO 1800 

1950 REM PLAYER ADVANCE 

1960 IF L>=A THEN 2020 ELSE LzL«i 

1970 GOSUB 1170 

1980 PRINT AS(LO;" WILL NOW ATTEMPT THE" 
1990 GOSUB 1190:GOSUB 1170 

2000 PRINT"VENTURE FROM POINT A TO B." 
2005 RESET(X,YO:RESET(R,22:GOSUB 560 
2010 GOSUB 600:GOSUB 750:М:112:М1-122 
2015 GOSUB 11?0:GOTO 880 

2020 REM START OVER 

2030 L=1i:GOSUB 1170 

2040 PRINT"ALL HAVE PLAYED...." 

2050 GOSUB 2150: МХ=0: СОТО 1830 

2060 IF ABS(Y-2)>=1 THEN 1900 

2070 GOSUB 1190:GOS5UB 1170: REM COMPLETE 
2080 PRINT'"VERY WELL DONE, ";A$(L);"!1" 
2090 GOSUB 119?0:GOSUB 1170 

2100 PRINT"YOU HAVE MADE A COMPLETE" 
2110 GOSUB 1190:С05УВ 1170 

2120 PRINT"PASSAGE TO POINT B..... и 
2130 GOSUB 1190 

2140 М‹І) =1:МХ=1 

2150 СОТО 1950 

2160 REM PLAYERS MADE TO POINT B 

2170 IF MX=0 THEN RETURN 

2180 GOSUB 11?0:GOSUB 1170 

2190 PRINT"THE FOLLOWING HAVE EASILY MADE" 
2200 GOSUB 1190:GOSUB 1170 
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2210 PRINT"IT TO POINT В... .." 
2220 GOSUB 1190:GOSUB 1170 
2230 FOR U-1 TO A 

2240 IF М‹Ч) =1 THEN 2260 

2290 NEXT:RETURN 

2260 PRINT А5(%50);"....." 

2270 GOSUB 1190:GOSUB 1170 
2280 М‹Ч) =0: СОТО 2250 

2300 REM END 

2310 GOSUB 1190:GOSUB 1170 
2320 РКІМТ"РОІМТ А TO POINT B" 
2330 GOSUB 1190:GOSUB 1170 
2340 PRINT'TERMINATED..... j 
2390 GOSUB 11?0:GOSUB 1170 
2360 END 


Variables and Strings 


 A-Numberof players |. 

G - 0/1 for skip of the instructions 
A$(D) - Player's first names 

L - Current player 

D,F - Arandom amount to make certain parts of each maze different 
M,M1,M2,M3 - For maze graphics 
X, Y - Start location; JJ=X at point А 
X, Y - Stop location; R=X at point B 
D$(I) - User's direction 

S(D - Spaces per direction 

I - Number of moves, up to 50 

H - Total number of moves entered 
D$ - Direction, as per D$(I) 

Š - Spaces, as per S(I) 

J - Total spaces per direction (counter) 
M(L) - Players that made it to point B 


Explanation of the Program Lines 


Lines 10-400 request the number of players and display the 
general instructions. 

Lines 410-470 accept the players' first names. 

Lines 480-500 display a message to the current player. 

Lines 510-870 create the maze graphics. The random variable 
D and F will help insure that certain parts of the maze will be 
different each time in case there are users who decide to cheat by 
writing down the instructions. 
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Lines 880-1160 randomly select the locations of point A, the 
start, and point B, the stop. 

Lines 1170-1180 form a subroutine used for displaying mes- 
sages. 

Lines 1190-1200 form a subroutine that creates a pause and 
clears the message from the screen. 

Lines 1210-1290 display a message to the user before he or she 
inputs his or her instructions. 

Lines 1300-1370 allow the user to input all of his or her 
instructions for getting to point B. Up to a total of 50 can be entered 
if they are needed. 

Lines 1380-1410 display a message indicating that the com- 
puter is ready to carry out the user's instructions. 

Lines 1420-1425 set some variables before the actual move- 
ment begins. 

Lines 1430-1470 displays a message indicating that no more 
instructions can be entered. 

Lines 1480-1750 cause the computer to carry out all of the 
instructions entered by the user. These lines also test for any hits. 
If a hit is encountered, the program is terminated or branches to the 
next player. 

Line 1760 tests to see if the user is close to point B. 

Line 1765 tests to see if the user has entered enough instruc- 
tions. 

Lines 1770-1820 display a message if a hit is encountered. 

Lines 1830-1890 ask if the user wants to try again after all have 
played. 

Lines 1900-1940 display a message indicating that there are 
not enough instructions to make it to point B. 

Lines 1950-2015 advance to the next player. 

Lines 2020-2050 display a message indicating that all have 
played and allow the user to try again! 

Line 2060 further tests to see if the player is at point B. If he is 
not, the program branches back to line 1900. 

Lines 2070-2150 print the names of all players that have suc- 
cessfully made it to point B and then terminate the program. 
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CUBES REMAINING: 10 UBES ADDED: 


INJECTOR: 


INJECTION 


In a laboratory there is a colony of bacteria. This colony was meant 
for experiments, but now it cannot be controlled. You'll have the 
honor of trying to destroy it. As many as five cubes of bacteria will 
race across the video one at a time. Your injector machine is located 
on the runner near the middle of the video. To inject, press the up 
arrow key. For an injection to work, it must hit directly in the 
opening of the bottom of the cube. If an injection is missed, the 
bacteria increase by one. To be successful, destroy all the cubes. 
Refer to pages 1-3 for information on the sound routine. Note that 
the IBM version of this program is included in Appendix À, and the 
Apple version in Appendix B. 


Sample Run 


INJECTION < 


NUMBER TO PLAY? 4 

THE INITIALS OF PLAYERS. 
? АА. 

? B.B. 

C. 

D. 


O 


? 
? 


т, 


YOU ARE HEAD OF А LABORATORY 
IN WHICH YOUR COMPANY IS 
INJECTING CUBES WITH 
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START 


NUMBER OF 
PLAYERS 


NAMES OF - 
PLAYERS 


INSTRUCTIONS 
SET 
VARIABLES 


CUBE 
MOVEMENT 


CONTINUE 
MOVEMENT 


2 


p 


ADVANCE 
COUNTERS 


x 


Z 


CLOSING 
MESSAGE 


STOP 


y 


Flowchart for Injection. 
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— еі кені 


——— 


nu NQ 


A SOLVENT TO DESTROY A COLONY 
OF BACTERIA THAT CANNOT BE 
CONTROLLED. THESE CUBES WILL 
RACE ACROSS THE SCREEN 5 AT A 
TIME. TO INJECT A CUBE, HOLD 

THE UP ARROW KEY. THE 

SOLVENT MUST GO IN THE OPENING 
AT THE BOTTOM OF THE CUBES. 


PRESS ENTER? 


EACH TIME A CUBE IS INJECTED, 
THE NUMBER RACING ACROSS THE 
VIDEO WILL DECREASE BY ONE, BUT 
NOT LESS THAN THREE WILL RACE 
ACROSS AT ONE TIME. A TOTAL 

OF 10 CUBES MUST BE INJECTED. 
IF AT ANYTIME YOU MISS AN 
INJECTION, THE NUMBER WILL 
INCREASE BY ONE. THE INJECTION 
MACHINE CAN BE MOVED LEFT OR 
RIGHT WITH THE LEFT AND RIGHT 
ARROW KEYS. GOOD LUCK... 


PRESS ENTER TO BEGIN? 
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Program Listing 


10 REM PROGRAM TITLE: INJECTION 

20 CLEAR 100 

30 RANDOM 

40 CLS 

50 PRINT"? INJECTION <" 

60 РНІМТ:5-31266 

70 INPUT"NUMBER TO PLAY (1-10)",;U 

80 IF У(1 OR ЧУ 10 THEN 70 

90 PRINT'THE INITIALS OF PLAYERS." 

100 FOR I=1 TO U: INPUT KS$(I) 

110 NEXT: PRINT: PL=1i1 

120 PRINT"YOU ARE HEAD OF A LABORATORY" 
130 PRINT'IN WHICH YOUR COMPANY IS " 

140 PRINT" INJECTING CUBES WITH" 

150 PRINT"A SOLVENT TO DESTROY A COLONY" 
160 PRINT"OF BACTERIA THAT CANNOT ВЕ" 

170 PRINT"CONTROLLED. THESE CUBES WILL" 
180 PRINT"RACE ACROSS THE SCREEN 5 AT A' 
190 PRINT"TIME. TO INJECT А CUBE, HOLD" 
200 РНІМТ"ТНЕ UP ARROW KEY. THE INJECTED" 
210 PRINT"SOLVENT MUST GO IN THE OPENING" 
220 PRINT"AT THE BOTTOM OF THE CUBES." 
230 PRINT 
240 PRINT 

290 INPUT" PRESS ENTER"';L 
260 PRINTG64,CHR$(30) 

270 PRINT"EACH TIME A CUBE IS INJECTED," 
280 PRINT"THE NUMBER OF CUBES RACING ACROSS" 
290 PRINT"THE VIDEO WILL DECREASE BY ONE, BUT" 
300 PRINT"NOT LESS THAN THREE WILL RACE" 
310 PRINT"ACROSS AT ONE TIME. A TOTAL" 
320 PRINT"OF 10 CUBES MUST BE INJECTED." 
330 PRINT"IF AT ANYTIME YOU MISS AN' 
340 PRINT"INJECTION, THE NUMBER WILL" 
350 PRINT"INCREASE BY ONE. THE INJECTION" 
360 PRINT'"MACHINE CAN BE MOVED LEFT OR" 
370 PRINT"RIGHT, WITH THE LEFT AND RIGHT" 
380 PRINT"ARROW KEYS. GOOD LUCK.. " 
390 PRINT 

400 INPUT"PRESS ENTER TO BEGIN"',L 
410 CLS:JNz0O:Tz1: IN=10 Ex0:CVzS5:GOSUB 600 
420 REM THE CUBES 
430 X265:Yz129?:MzsX: NY: Jz0:JJz0O 

440 PRINTGX,STRING$(6,19?1); 
450 PRINT@Y,STRINGS (6,191), 

460 PRINT@Y+2," ae 
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470 X=X+8.Y=Y+8:J=J+1 :POKE 5,25 
480 IF 20-1 THEN 520 

490 IF J>=GV THEN 510 

900 GOTO 440 

510 REM BLANK OUT 

520 PRINT@M, STRINGS (6,32); 

530 PRINT@N, STRINGS (6,32); 

540 M=M+8 :N=N+8:SS=USR(0) 

550 REM RECYCLE 

560 IF X>=128 THEN X=65:Y=129:J3JJ=1:GOTO 580 
970 IF М) =128 THEN 430 

380 GOTO 720 

600 REM OUTER BORDER / INJECTOR 
610 FOR X=0 TO 127:5ЕТ(Х,0) 

620 SET(X,462:SET(X,472 : NEXT 

630 FOR Х=1 TO 45 

640 SET(O0,X):SET(1,X) 

650 БЕТ(126,Х) : SET( 127, X ) : NEXT 
660 PRINTG3576,STRING$(63,1?71)j; 
670 Qz514:I$zSTRINGS$(2,1912:CAz0 
680 PRINTGGQ,IS;:PRINTG770,"INJECTOR:' ; 
690 PRINT@642,"CUBES REMAINING:'; 
700 PRINTG682,"CUBES ADDED:'; 

710 PRINT@780,K5 (PL); : RETURN 

720 REM INJECTION / INJECTOR MOVE 
730 IF R=8 THEN 790 

740 RzPEEK(14440) 

750 IF R=8 THEN 790 

760 IF R=32 THEN 900 

770 IF R=64 THEN 960 

780 GOTO 440 

790 IF JNz1 THEN 810 

800 QQ=Q: JN=1 

810 IF 0‹=191 THEN V=1:GOTO 860 
820 PRINT@Q," a 

830 QzQ-384:;PRINTGG,IS; 

835 IF PEEK(G+1336042)=191 THEN 845 
840 GOTO 440 

845 IF РЕЕК(0+15360-2) =191 THEN 1020 
850 GOTO 440 

860 PRINT@Q," "3 

870 Q@=QQ+E:QQ=0:E=0 

880 PRINTGQ,IS$;:IF Vzi1 GOSUB 1140 
890 R=0:JN=0:GOTO 440 

900 REM TO LEFT 

910 IF 0<2516 THEN 440 

920 PRINT@Q," У 

930 Q=Q-T 
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940 PRINT@Q, I$; 

950 GOTO 440 

960 REM TO RIGHT 

970 IF 0) а570 THEN 440 

980 PRINTQGQ," ", 

990 Q=Q+T 

1000 PRINT@Q,I$; 

1010 GOTO 440 

1020 IF PEEK(Q+15360-464) 8191 THEN 1030 
1025 GOTO 440 

1030 IF PEEK(Q«15360-1221?1 THEN 1045 
1040 GOTO 440 

1045 IF PEEK(Q«*15360*1221?1 THEN 1060 
1050 GOTO 440 

1060 НЕМ INJECTED 

1070 TzT*1:CVzCV-1:POKE §$,255:SS=USR(0) 
1080 IF Т›=5 THEN Tei 

1090 IF СУ<-2 THEN СУа85 

1100 INZIN-1:PRINTG660,IN; 

1110 IF IN¢=0 THEN 1250 
1120 E=RND(S):1F E«QQ»z972 THEN E=-RND(9) 
1130 GOTO 860 
1140 REM CUBE ADDED / INJECTION MISSED 
1150 IN=IN+1:POKE &,50:SS=USR(0) 

1160 CA=CA+1:V=0 

1170 T=T-1 

1180 IF Т<-0 THEN Т=1 

1190 PRINTG660,1IN; 

1200 РНІМТ9695,СА; 

1210 RETURN 

1250 REM PLAYER ADVANCE 

1260 W(PL)OzsCA:PLzPL-«1 

1270 IF PLOU THEN 1310 

1280 PRINT@770,"STANDBY ";K$(PL),;"'.....'; 
1290 FOR YYzi ТО 1500:МЕХТ 

1300 Rz0:GOTO 410 

1310 FOR YYzi TO 900:NEXT: CLS 

1320 PRINT'"ALL PLAYERS HAVE HAD THEIR" 
1330 PRINT"TURN AT THE INJECTION MACHINE." 
1340 PRINT"SCORES ARE BASED ON THE NUMBER" 
1350 PRINT"OF CUBES THAT WERE ADDED DURING" 
1360 РНІМТ"ТНЕ INJECTION PROCESS." 

1370 PRINT:FOR I=1 TO U 

1380 PRINT"INJECTOR: ";К(1) 

1390 PRINT"“HAD";,WCI); "CUBES ADDED." 

1400 PRINT" FINAL SCORE EVALUATION: "; 
1410 М-М(1) 

1420 IF М>-0 AND М‹=5 THEN 1470 
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1430 IF М>-5 AND У‹=10 THEN 1480 
1440 IF М>-10 AND W<=20 THEN 1490 
1450 РНІМТ"ТО SORRY TO MENTION." 
1460 GOTO 1500 

1470 PRINT'"EXCELLENT.".GOTO 1500 
1480 PRINT'"FAIR.":GOTO 1500 

1490 PRINT'"POOR." 

1900 FOR YY=1 TO 1200:NEXT YY: PRINT 
1910 NEXT I 

1520 PRINT 

1530 PRINT"END OF INJECTION." 
1540 END 


Variahles and Strings 


S - Sound location (machine language) 

U - Number of players 1-10 

K$(I) - Initials of players 

PL - Total number of players, counter 1 to U 

JN-0/1variable; 1 means that QQ is already set to the amount of Q 
(before injection) 

IN - Total injections 

E - Random amount added to Q when it returns to its former location 
(after injection) 

X, Y, M,N,LJJ - All for graphics of cubes 

SS - USR call, sound routine 

Q - Print @ location of injector 

I$ - Injector 

CA - Cubes added, injection missed 

R - Peek for users key closure 

QQ - Value of Q (JN=1) before injection (Q location) 

T - Amount added to Q if cube is injected; this amount will not be 
larger than 4 

W(PL) - Player, number of cubes injected 

W - Value of W(PL) for print messages 


Explanation of the Program Lines 


Lines 10-400 accept the input of the number of players and 
their names, and display the general instructions. 

Line 410 initializes some variables, and uses lines 600-710 to 
set the outer border and print a message. 

Lines 420-570 draw the cubes (5) and blank out a portion at the 
lower center of each. Lines 440-580 also keep the cubes moving. 
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Lines 720-770 test for key closure and determine whether or 
not R is equal to 8. 

Line 780 recycles back to line 440 to keep the cubes moving. 

Line 790 tests whether or not JN —1. If it does QQ already 
contains the value of Q. This is the value before the injection. 

Line 800 sets the variable QQ to the value of Q, meaning that 
the user is ready to make an injection. JN is set to 1. 

Line 810 tests the value of Q for resetting purposes. Lines 
860-890 are used. 

Lines 820-850 tests to see if a cube has been injected. If one has 
been, the program will branch to the appropriate lines. 

Lines 900-950 allow the user to move the injector to the left. 

Lines 960-1010 allow the user to move the injector to the right. 

Lines 1020-1050 test peek(Q+15360 + or — an amount) to see 
if the cube has really been injected. 

Lines 1060-1130 are used when the cube had been injected. 
The variable IN is decreased by one. A random amount E, is added 
to Q so the user cannot expect another injection to occur in the same 
location at that moment. 

Lines 1140-1210 are used when the injection missed. Another 
cube is added. The total number of injections and cubes are printed 
in lines 1190 and 1200. 

Lines 1250-1310 go to the next player if PL (player counter) is 
less than U (total players). If this argument is satisfied, the program 
branches back to line 410. The variables are reset and the next 
player begins. 

Lines 1320-1540 terminate the program. All players' names, 
their scores, and messages are printed. 
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WRONG FIGURE!! N X 


INTERCEPT 


This game requires you to intercept and possibly destroy any 
intruder that wanders into your dome. You have been given a ten 
day commission to guard this city within a dome. Some of the 
figures that enter the dome are alien ; some are friendly. Within an 
allotted amount of time, you must decide which is which. It helps to 
remember the shape of the figures. Do not destroy the friendly 
intruders! Note that the IBM version of this program is included in 
Appendix A. 


Sample Run 


INTERCEPT 


INSTRUCTIONS? YES 
YOU ARE THE LEADER OF A SPECIAL 
GROUP KNOWN AS INTERCEPT. 

YOU WILL HAVE TO IDENTIFY AND 
POSSIBLY DESTROY ANY ALIENS THAT 
VENTURE IN THIS STERILIZED DOME 
WHERE ALL OF YOUR INHABITANTS 
LIVE. THE DOME, WHICH CONTAINS 
CROSSROADS, IS THE TERRITORY. 
NEAR THE EDGES OF THE SCREEN 
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Y 
PRINT 
INSTRUCTIONS 


OUTPUT 
GRAPHICS 
MESSAGES 


ы Y 
PRINT FIGURE 
MOVE FIGURE 


MOVE FIGURE 
DOWN 
PEEK(A + 15360 


MOVE 
FIGURE UP 
Y TEST LASER 
+ 72) = 32 


ü FIRE F 
INTRUDER iN 
DOME 
TEST ALL 
AMOUNTS 


RECHARGE T 


INTRUDER HIT 


Flowchart for Intercept. 
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LEADER: 

PRESENT CONDITION: QUIET 
LASER STATUS: CHARGING 
DAYS ON COMMISSION: 10 


ARE TWO LASER CANNONS. 

THESE CANNONS WILL FIRE ONLY 
WHEN THE CORRECT KEY SEQUENCE 
HAS BEEN ENTERED BY YOU. 


PRESS ENTER PLEASE? 


AT RANDOM TIMES, DIFFERENT FIGURES 
WILL. APPEAR AT THE CENTER OF 

THE VERTICAL ROAD OF THE CROSS- 
ROADS. WHEN THE FIGURE !S AT THE 
CENTER IN LINE WITH YOUR LASER, 

YOU MUST DECIDE WHETHER IT IS ALIEN 
OR FRIENDLY. IF YOU BELIEVE THAT 

IT IS THE LATTER OF THE TWO, DO 
NOTHING; JUST LET IT PASS. IF 

YOU BELIEVE IT IS ALIEN, FIRE THE 
LASER BY PRESSING THE RIGHT THEN 
THE LEFT ARROW KEYS, THEN FINALLY 
PRESSING THE SPACEBAR. YOU CAN 
HAVE THE LASER READY BEFOREHAND 
BY PRESSING THE ARROW KEYS TO 
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PRESS ENTER PLEASE? 


MAKE THE LASER READY, YOUR COM- 
MISSION WILL LAST 10 DAYS. IF 

YOU DESTROY 10 FRIENDLY IN- 
TRUDERS BEFORE THAT TIME, YOUR 
COMMISSION WILL BE TERMINATED 
BEFORE THEN. 

THE FINAL OBJECT IS TO DESTROY AS 
MANY ALIEN INTRUDERS AS YOU CAN 
BEFORE YOUR COMMISSION EXPIRES. 


YOUR LAST NAME, PLEASE? SMITH 


Program Listing 


10 REM PROGRAM TITLE: INTERCEPT 

20 CLEAR 200:RANDOM 

30 CLS:SS=31266 

40 PRINT CHR$(157);" INTERCEPT ";CHRS (174) 
S0 PRINT 

60 INPUT"INSTRUCTIONS (Y/N)" ; Q$ 

20 IF Q@$="N" OR G$="NO" THEN 520 

80 PRINT 

90 PRINT"YOU ARE THE LEADER OF A SPECIAL' 
100 PRINT"GROUP KNOWN AS INTERCEPT." 

110 PRINT"YOU WILL HAVE TO IDENTIFY AND" 
120 PRINT"POSSIBLY DESTROY ANY ALIENS THAT" 
130 PRINT"VENTURE IN THE STERILIZED DOME" 
140 PRINT"WHERE ALL OF YOUR INHABITANTS" 
150 PRINT"LIVE. THE DOME 15 SQUARE AND" 

160 PRINT"HAS A CROSSROAD WITHIN IT." 

170 PRINT"AT THE LEFT AND RIGHT EDGE OF THE 

HORIZONTAL" 

180 PRINT"ROAD ARE TWO LASER CANNONS." 

190 PRINT'THESE CANNONS WILL FIRE ONLY" 

200 PRINT"WHEN THE CORRECT KEY SEQUENCE" 
210 PRINT"HAS BEEN ENTERED BY YOU." 

220 PRINT 

230 INPUT"PRESS ENTER PLEASE" ,Q5 

240 CLS 

250 PRINT"AT RANDOM TIMES,DIFFERENT FIGURES" 
260 PRINT"WILL APPEAR AT THE CENTER OF" 

270 PRINT"THE VERTICAL ROAD OF THE CROSS-" 
280 PRINT"ROADS. WHEN THE FIGURE 15 AT THE" 
290 PRINT"CENTER IN LINE WITH YOUR LASERS" 
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300 
310 
320 
330 
340 
350 
360 


370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
..48 20 
480 
490 
500 
510 
520 
330 
340 
550 
560 
970 
280 
290 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
790 
760 
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PRINT"YOU MUST DECIDE VHETHER IT IS ALIEN" 
PRINT"OR FRIENDLY. IF YOU BELIEVE THAT" 
PRINT"IT IS THE LATTER OF THE TWO, DO" 
PRINT"NOTHING; JUST LET IT PASS. IF" 
PRINT"YOU BELIEVE IT IS ALIEN,FIRE THE" 
PRINT"LASER BY PRESSING THE RIGHT THEN" 
РКІМТ"ТНЕ LEFT ARROW KEYS, AND THEN 
FINALLY" 

PRINT"PRESSING THE SPACEBAR. YOU CAN" 
PRINT"HAVE THE LASER READY BEFOREHAND" 
PRINT"BY PRESSING THE ARROW KEYS TO" 
INPUT" PRESS ENTER PLEASE";QS5 

CLS 

PRINT"MAKE THE LASER READY. YOUR COM-" 
PRINT"MISSION VILL LAST 10 DAYS. IF" 
PRINT"YOU DESTROY i0 FRIENDLY IN-" 
PRINT"TRUDERS BEFORE THAT TIME, YOUR" 


PRINT'"COMMISSION WILL BE НАА 


PR IN'T'Drrnnr PHEN. T 


PRINT"THE FINAL OBJECT IS TO DESTROY AS' 
PRINT"MANY ALIEN INTRUDERS AS YOU САМ" 
PRINT"BEFORE YOUR COMMISSION EXPIRES." 
PRINT 

PRINT 

INPUT"YOUR LAST NAME, PLEASE" ;P$ 

CLS 

REM INTERCEPT CROSSROADS 

X$=STRINGS$S (26,191) 

A=3:J=1 

PRINT@A,X§: PRINT@A+320,X$; 
PRINT@A+30,X$;:PRINT@A+350,X$5; 
A=A+64:J=J+1 

IF J>=5 THEN 630 

GOTO 580 

AA=313:A$=CHR$(157)4+4CHR$ (183) 
AA$=CHR$(187)+CHR$(174) 
PRINT@A,AS;:PRINT@AA, AAS; 
PRINTGS81,"LEADER: "; Ps 
PRINT@645,"PRESENT CONDITION: " 
PRINT@709,"LASER STATUS." 

PRINT@773, "DAYS TO GO ON COMMISSION: " 
REM GET FIGURES 

REM FRIENDLY 
FS(1)=CHR$(134):F$(2)=CHRS$(139) 
F3(3)=CHR§$(141):F$(4)=CHRS (153) 
FS(3)=CHR$(166) 

REM ALIEN 

AS (1)=CHR$(135):A$(2)=CHR$(137) 


770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1005 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
11195 
1120 
1125 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 


A$(3)=CHR$(142):A$(4)=CHR$ (158) 
A$(5)=CHR$(173> 

REM DOUBLE SIZE 

FOR Isi TO 5 

F$CIOZFSCIO«FS$(CID 
AS(I)j=ASCI)j+AS (I) 
NEXT:K1zA«2:K2zA428 

REM DAYS / ALIEN / FRIENDLY 
DA=10:A1I=0:FI=0:AD=0:FD=0:DF=0 
C$= "QUIET "н: СС = "АГЕНТ" 
L$-"CHARGING'":LL$z"READY Y 
PRINT@667,C$; 

PRINTG731,L$; 

PRINTG7?B,DA, 

REM START LOCATION 

L=544 

REM CONDITIQN 

FOR T=1 TO 500 

I=RND( 95> 

N=RND (5) 

IF N=I THEN 1000 

NEXT T 

GOTO 940 

REM ALERT / INTRUDER 

IF Т<=200 THEN TzT«1:GOTO 1005 
X¥=0:LF=1:XC=#0:DS=0:YU=0 
PRINT@667, STRINGS (6,32); 

FOR Т-і TO 100:NEXT 


PRINT@667,CC$;:POKE 55,100:S=USR(0) 


FOR ТТ-1 TO 150:МЕХТ 

X=X+1:IF Х<=4 THEN 1020 
PRINT@667," INTRUDER"; 

R=RND(2) 

IF Н-2 THEN 1110 
PRINT@L,FS(N);:GOTO 1115 
PRINTGL,A$(N); 

YU=YU+1 

IF E=0 THEN Е-РЕЕК(15340) 

IF LF=4 THEN 1360 

MM=RND (2) 

IF ММ-і AND YU¢=70 THEN 1180 

IF L(z32 THEN 1520 

L=L-64: PRINT@L+64,STRING$ (2,32); 
IF LF¢=3 GOTO 1200 ELSE 1360 

IF L>=#344 THEN MMz2:GOTO 1150 
L=L+64:PRINT@L~6494,STRING$ (2,32); 
IF E=32 AND LF=1 THEN 1240 

IF E=64 AND LF=2 THEN 1250 
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1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1360 
1370 
1380 
1390 
1400 
1410 


1415 


1417 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1520 
1525 
1530 
1540 
1550 
1560 
1565 
1570 
1575 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1695 
1656 
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IF Еші28 AND LF=3 THEN 1260. 
GOTO 1270 

LF=2:GOTO 1280 

LF=3:GOTO 1280 

LFz4:GOTO 1280 

E=0:GOTO 1090 

PRINT@837,"LASER KEY SEQUENCE:" 
PRINT LF-1:POKE 55,30:S=USR(0) 
IF LF=3 THEN 1320 

GOTO 1270 

PRINT@731,LL5 ; 

GOTO 1270 

REM FIRING 

IF К=1 THEN 1390 
PRINTGL,ÀA$(N);:GOTO 1400 
PRINTGL,F$N); 
PRINT@A+2, STRING$ (25,140); 
PRINT@AA-25,STRINGS (25,140); 

FOR TT=1 ТС 20:РОКЕ 55S,1S:S=USP O) 
NEXT 

IF PEEK(CA+15360+27)=32 THEN 1440 
GOTO 1650 

PRINTG731,L$,;,:LFzl1 

PRINT@837," INDIRECT HIT " 
PRINTGK1,STRING$(23,32)j 
PRINTGK2,STRING$(26,32)7; 
FOR TTzi TO 20:РОКЕ 55,45 
S=VUSR(0) : NEAT 

GOTO 1090 

REM INTRUDER IN DOME 

IF ¥U¢C=50 THEN 1190 
PRINT@L, " ME 


€ 


PRINTG837,"INTRUDER IS NOV IN DOME... 


FOR ТТ-1 TO 30:POKE $5,90:5zUSR«(0) 
NEXT: PRINT@A+2,5TRING$ (92,32); 
PRINT@837,CHR$(30);:PRINT@837,; 
FOR TT-1 TO 200:NEXT:POKE 55,175 
SzUSR(COD: IF R=1 THEN 1590 

GOTO 1610 

PRINT"INTRUDER: FRIENDLY..." 

GOTO 1620 

PRINT"INTRUDER: ALIEN..." 

FOR TTzi TO 500:МЕХТ 

IF ХС‹=1 THEN ХС-ХСя1:С0Т0 1565 
GOTO 1670 

PRINTG837,"INTRUDER: DESTROYED..." 
FOR TT=1 TO 20:POKE SS ,TT+10 
S=VUSR(0):NEXT 


1660 DS=1:PRINT@L," "; :GOTO 1550 

1670 REM VARIABLE COUNT 

1680 РКІМТЕВЗ?, СНК (30) : РКІМТЕВЗ7, ; 
1690 IF 05=1 THEN 1810 

1700 IF Н-1 THEN 1750 

1710 AIZzAI-«1 

1720 PRINT"YOU NOW HAVE";AI;"ALIENS '; 


1730 PRINT"IN THE DOME." 
1740 GOTO 1790 


1750 FI=FI+1 

1760 PRINT"YOU HAVE WISELY LET";FI,;" 

1770 PRINTG?01,; 

1780 PRINT"OF THE FRIENDS PASS." 

1790 REM CONT IF DAYS 2-1 

1800 GOTO 1900 

1810 REM DESTROYED 

1820 IF R=1 THEN 1870 

1830 Ар=Ар+1 

1840 PRINT"YOU HAVE DESTROYED";AD;" ALIENS." 

1850 GOTO 1900 

1870 FD=FD+i 

1880 PRINT FD;"FRIENDS HAVE NOW BEEN 
DESTROYED." 

1890 REM 

1900 REM DX FOR DAYS DECREASE 

1910 REM IF LESS THAN OR EQUAL TO 75 

1920 DX-RND(100) 

1930 IF DX(275 THEN DA-zDA-1:DFzDF«1 

1940 FOR ТТ=1 TO 1200:NEAT 

1950 PRINT@837 ,STRING5 (128,32); 

1960 IF DA¢=0 OR FD>=10 THEN 1980 

1970 FOR ТТ=1 TO 20.POKE $8$,20:5zUSR(0D 

1975 NEXT: GOTO 860 

1980 PRINTG837,,:IF Ер) =10 THEN 2010 

1990 PRINT" YOUR COMMISSION HAS EXPIRED..." 

2000 GOTO 2020 

2010 PRINT"YOUR COMMISSION IS TERMINATED..." 

2020 FOR ТТ-і TO 2000:NEXT 

2030 CLS 

2040 PRINT"DURING YOUR";DF;"DAY COMMISSION" 

2050 PRINT"YOUR RECORD IS AS FOLLOWS:"; P$; 

2060 PRINT'," 

2070 PRINT"ALIENS ALLOWED TO PASSINTO DOME:'; 

2080 PRINT AI 

2090 PRINT"ALIENS DESTROYED: ",AD 

2100 PRINT"FRIENDLY INTRUDERS DESTROYED:",FD 

2110 PRINT 

2120 IF FD»z10 THEN 2240 
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2130 
2140 
2150 
2160 
2170 
2180 
2190 


2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 


PRINT"YOUR COMMISSION HAS BEEN TERMED:" 
IF AD>=1 AND АЮ<-5 THEN 2170 

IF AD»z5 AND AD(z? THEN 2190 

IF Ар) =10 THEN 2210 

PRINT"IMPROPER. POOR USE OF LASER." 
GOTO 2270 
PRINT FAIR. 
ENOUGH. " 
GOTO 2270 
PRINT"EXCELLENT. ALL JUDGEMENTS WERE" 
PRINT ' MADE WITH UTMOST CAUTION." 

GOTO 2270 

PRINT“YOU HAVE DESTROYED"; ЕЮ; "FRIENDLY" 
PRINT"INTRUDERS ";P$;" DO NOT ATTEMPT" 
РНІМТ"ТО RETURN TO THIS COMMISSION." 
PRINT 

PRINT'TERMINATION OF PROGRAM." 

END 


LASER USED, BUT NOT 


Variables and Strings 


SS - Sound location 

P$ - User's last name 

X$ - Crossroads graphics 

A,], AA - For graphics 

А%,АА% - Laser cannons, left and right 

F$(1-5) - Figures, friendly 

А%(1-5) - Figures, alien 

K1,K2 - For blanking laser after firing 

DA - Total days on commission 

AI - Alien intruders in dome 

FI - Friendly intruders in dome 

AD - Aliens destroyed 

FD - Friendly intruders destroyed 

C$,CC$,LS$,LL$ - For status message printout 

L - Start location, intruder 

LN - Random amounts which determine when an intruder enters the 
dome 

T - For-next loop, for above variables 

X - For message printout (flashing) 

LF - For noting if keys have been pressed in correct sequence 

XC - For message printout (flashing) 

DS - Intruders destroyed, alien or friendly 

YU - Counter, figure up at highest point 
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R - Random selection: alien or friendly 

E - Key closure by user 

5 - USR call for sound output 

DX - Random variable. If less than or equal to 75 DA (days on 
commission) it will decrease by 1 

DF - For message indicating the number of days on commission 


Explanation of Program Lines 


Lines 10-520 display the general instructions. 

Line 530 has the user input his or her last name. 

Lines 540-620 create the graphics for the crossroads and the 
four large squares. 

Lines 630-690 establish the graphics for the lasers and display 
general messages. 

Lines 700-780 establish the strings for the friendly and alien 
figures. 

Lines 790-830 double the size of each figure. The variables set 
in line 830 are used for blanking out the laser after firing. 

Lines 840-900 set more variables and print messages and 
values on the video. 

Lines 910-920 determine the location the figure will start at. 

Lines 930-990 maintain the present condition until N— I. The 
program will then branch to an alert and complete alert will be 
sounded when T= 200 in line 1005. 

Line 1010 sets more variables before the figure 15 moved. 

Line 1020-1070 present the alert message with the appropriate 
sounds. 

Line 1080 randomly selects whether intruder is alien or 
friendly. 

Lines 1100-1110 print the figure that was selected. 

Line 1115 increases the counter YU by 1. 

Line 1120 tests the value of E for key closure. 

Line 1125 tests the value of LF. If LF is equal to 4, laser is 
ready to fire. 

Lines 1130-1190 move the figure up or down, depending on the 
value of MM. 

Lines 1200-1220 check the key closed with the value of LF. 
The only way the laser will fire is if all keys are pressed in the 
proper sequence. 

Lines 1230-1270 increases the value of LF with each key 
closure. If E is equal to none of the values specified (line 1230), it 
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will equal 0 (zero), and the movement of the figure will continue at 
line 1090. 

Lines 1360-1470 cause the firing of the laser with a sound 
output. 

Line 1420 tests the value of the peek location, to see if figure 
was hit. If argument is true, the program will branch to line 1650. 

Lines 1440-1500 display a message indicating that there was an 
indirect hit to the figure and produced a sound. The laser will then 
be blanked out while the figure continues moving. The laser is then 
ready to accept another key sequence to fire. All of this will take 
place in split seconds. 

Lines 1520-1640 display a message indicating that an intruder 
has come into the dome. 

Lines 1650-1660 display a message indicating that the alien has 
been destroyed. 

Lines 1670-1890 display messages indicating how many aliens 
are in the dome, how many the user destroyed, and how many of 
those destroyed were friendly. 

Lines 1900-1975 decrease the number of days in the user's 
present commission if DX (random) is less than or equal to 75. Line 
1960 tests the values of both DA (days) and FD (friendly intruders 
destroyed). If either condition is met, the program is terminated. 

Lines 1980-2290 are used when the user's commission has 
expired. All relevant figures are displayed, and the user's perfor- 
mance is evaluated. If the user has destroyed 10 friendly intruders, 
he or she cannot come out ahead. 
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Appendix À 
Program Listings for the IBM PC 


The following listings have been created especially for use on the 
IBM PC. Note that the caps lock key must be in effect in order to use 
the games. Also note that you should enter YES or NO, rather than 
Y or N unless the prompt indicates otherwise. 
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Hold Time for the ІВМ PC 
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REM program title:HOLD TIME 
CLEAR 350 
V$=RIGHT$(TIME$,2): 'use PC clock to seed random 


number generator 
V=VAL(V$) 
RANDOMIZE V 


WIDTH 


40:COLOR 15,9,14 


CLS:KEY OFF 


PRINT 


PRINT: 
IF Z$= 
:GLS 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


TAB(15)"HOLD TIME":GOSUB 1050 
INPUT "INSTRUCTIONS";Z$ 
"N" OR Z$="NO" THEN CLS:GOTO 275 


"HOLD TIME...A MATTER OF HIGH OR" 
"LOW POINT TOTALS. THE COMPUTER'S" 
"CRAFT WILL BLIP ALL AROUND YOUR" 
"VIDEO. DOWN THE LEFT AND RIGHT" 
"SIDES WILL BE ASTERISKS. THESE" 
"ARE YOUR LASERS. AT THE INSTANT" 
"YOU THINK THE CRAFT IS IN LINE" 
"WITH THESE, HOLD THE SPACE BAR" 
"YOUR LASERS WILL START MOVING" 
"TOWARD THE CENTER. THE COMPUTER" 
"CRAFT WILL ALSO CONTINUE TO MOVE." 


:GOSUB 1000:INPUT "PRESS ENTER TO CONTINUE" 


»X$:CLS: PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT: 


"YOU CAN 'HOLD' THE COMPUTER'S" 
"CRAFT FROM MOVING FOR AN AMOUNT" 
"OF TIME, ROUGHLY 20 SECONDS." 
"POINTS WILL RANGE FROM 1500 TO " 
"400, DEPENDING ON WHERE YOU" 
"DESTROY THE CRAFT (TOP OR BOTTOM)" 
"ON THE SCREEN. TIME LIMIT FOR THE" 
"ENTIRE RUN WILL BE JUST ABOUT" 
"FIVE MINUTES. THIS WILL BE NOTED" 
"AT THE LOWER RIGHT OF YOUR SCREEN" 
"COUNT STARTS AT 30." 

"TO 'HOLD' THE COMPUTER'S" 

"CRAFT, PRESS THE «CTRL» KEY":GOSUB 1025 


INPUT "PRESS ENTER TO BEGIN",X$:CLS 


DEF SEG=&H40:POKE &H17,0:C$="<X>" 

REM outer graphics points 
Q$=STRING$(38, 42) :MR=8:MC=16:MMR=1 :MMC=1 
G=0:PT=16:LOCATE 1,1:PRINT Q$:LOCATE 16,1: 
PRINT Q$ 
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LOCATE 2,34:PRINT "20";:FOR XR=2 TO 15:XC=1 
LOCATE XR,XC:PRINT LEFT$(Q$,1);:SOUND 10% 
(50-XR),1 
PRINT TAB(AO) LEFT$(Q$,1);:GOTO 500 
IF MMR«»1 AND MMC<>1 THEN GOSUB 355 
NEXT 
LOCATE 1,1:PRINT STRING$(40,32);:LOCATE 16,1: 
PRINT STRING$(40,32) 
FOR XR=2 TO 15:XC-1 
LOCATE XR,XC:PRINT CHR$(32);:PRINT TABC40)CHR$ 
(32);:SOUND 70-XR,3 
GOSUB 355:NEXT:GOSUB 355:GOTO 310 
LOCATE 16,35:PRINT ABS(INT(TT/60)-30); 
LOCATE MMR,MMC:PRINT STRING$(5,32); 
IF MR<=2 OR MR>=15 THEN MR=7 
COLOR 10:LOCATE MR,MC:PRINT C$;:TT=TT+1:COLOR 15 
IF TT>=1800 THEN 830 
MMR=MR:MMC=MC:DEF SEG=&H40:W=PEEK(&H17 ) 
IF W=4 AND G<=20 THEN G=G+.4:GOSUB 770:RETURN 
XX=INT(RND*4+1):REM craft move 
ON XX GOTO 380,390,400,410 
REM left move 
MC=MC—INT(RND*5+1):GOTO 420 
REM right move 
MC=MC+INT(RND*5+4+1):GOTO 420 
REM up move 
MR-MR-1:GOTO 420 
REM down move 
MR=MR+1:DEF SEG-&HB800:IF PEEK(82)=32 THEN GOSUB 
700 ‘location of message from lines 745-762 
IF PEEK(146)=32 THEN GOSUB 700 ‘location of 
message from line 315 | 
IF РЕЕК(1126)=32 THEN GOSUB 700: 'location of 
message from line 705 
IF PEEK(1186)=32 THEN GOSUB 700: 'location of 
message from line 715 
IF MC<=3 THEN MC-40:MR-MR-1 
IF MR<=2 AND MC<=2 THEN 410 
IF MC>=35 THEN MC=1:MR=MR+1 
IF MR>=15 AND MC>=35 THEN 400 
SOUND 440,3:RETURN 
REM fire 
IF XR<=14 THEN W$=INKEY$ 
РІ-РІ-1:ІЕ W$="" THEN 330 
IF W$=" " THEN 525 
GOTO 330 
REM laser advance 
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530 IF XR>=13 AND XC>=30 THEN 330 

532 IF XR<=2 AND ХС<-40 THEN 330 

535 DEF SEG=&HB800: HR=XR:HC=XC:H1=(HR-1)*80: 
H2=H1+78:UN=UN+1:S2=1000 

536 IF RP=1 THEN LOCATE 2,20:PRINT ABS(R-UN); 

540 DEF SEG=&HB800:POKE Н1,32:РОКЕ H2,32: 

545 IF PEEK(H1+2)<>32 OR PEEK(H2-2)<>32 THEN 570 

550 Hl=H1+2:H2=H2-2:S2=S2-10:SOUND 32,2 

555 РОКЕ Н1,42:РОКЕ Н2,42 

560 IF ABS(H2-H1)<=4 THEN 900 

565 GOSUB 355:GOTO 540 

570 REM direct hit 

23/5 POKE HI.42 | 

580 IF РЕЕК(Н2-2)<>32 THEN 600 

585 POKE H2,32:H2-H2-8 

590 POKE H2,42 

295 FOR 0-1 TO 2:SOUND 1000,3:SOUND 800,3:NEXT: 
GOTO 580 

600 REM delete 

605 2=1:РОКЕ Н1,32:РОКЕ H2,32 

610 N=(MR-1)*80+(MC-1)*2:S1=2200 

615 DEF SEG-&HB800:POKE N,32:POKE Қ--2,32 

620 POKE N+4,32 

625 J=2* INTCRND*5) 

630 IF N+J-80>=158 THEN 640 

635 GOTO 660 

640 POKE N+J-80,42:POKE N+J+80-J, 42 

645 FOR Т=1 TO J*10:NEXT 

650 POKE N+J-80,32:POKE N+J+80-J , 32 


655 GOTO 675 

660 POKE N+J+80,42:POKE N+J+80-J, 42 

665 FOR I=1 TO J*10:NEXT 

670 POKE N+J+80,32:POKE N+J+80-~J , 32 

675 IF 7<-7 THEN 685 

676 SOUND 1000,3 

680 IF RP=0 THEN GOTO 690 ELSE PI=PI+1:GOTO 695 
685 Z=Z+1:SOUND 220,3:GOTO 625 

690 PI=PTI+1:X$=X$+"4" 

695 PP=PP+PI*100:GOSUB 700:GOTO 900 

700 A$="TOTAL POINTS: ":T$="TIME LAPSE:" 
705 FR=15:FC=3 

710 FOR I-1 TO LEN(A$) 

715 LOCATE FR,FC425:PRINT(MID$(T$,I,1)); 
716 LOCATE FR,FC:PRINT MID$(A$,1,1); 

720 FC=FC+1:NEXT 

/25 PRINT PP;:IF RP-1 THEN 735 

730 IF Хф-"" THEN RETURN 
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REM reserve power 
R$="RESERVE POWER:" 
FR=2:FC=2 
FOR I=1 TO LEN(R$) 
LOCATE FR,FC:PRINT MID$(R$,I,1); 
FC=FC+1:NEXT 
IF RP=1 THEN X$=STR$(ABS(R-UN)) 
PRTNT X$; 
TI$="HOLD TIME:":REM hold time 
DEF SEG=&HB800:IF PEEK(1186)<>32 THEN 790 
FR=2:FC=25:FOR І-1 TO LEN(TI$) 


LOCATE FR,FC:PRINT MID$(TI$,1,1)5 :FC=FC+1:NEXT 


LOCATE 2,36:PRINT INT(ABS(G-20) ); 
RETURN 

REM time remaining 

ТЕ RP=1 THEN DK=1:GOTO 910 

IF TT>=1800 THEN 830 

GOTO 300 

FOR TI=1 TO 1200:NEXT 
CLS:R-LEN(X$) 

IF R20 THEN 960 

PRINT "VERY WELL DONE...." 

PRINT "YOU HAVE ";R;" UNITS OF" 
PRINT "RESERVE POWER...." 

PRINT "PRESS ENTER TO USE"; 

INPUT X$:TT=0:RP=1:UN=0 

CLS 

GOTO 300 

DEF SEG-&HAO:POKE &H17,0:REM delete reserve 
units 

IF RP=0 THEN 330 

IF UN»-R THEN 925 

IF DK=0 THEN 330 

DK=0:GOTO 810 

REM finish 

FOR TI«1 TO 1200:NEXT 

GLS 

PRINT "RESERVE POWER EXHAUSTED..... Š 
PRINT "TOTAL POINTS ACCUMULATED: ";PP 
PRINT 

GOTO 980 

PRINT "YOU HAVE DESTROYED NOTHING" 
PRINT "YOU HAVE NO RESERVE POWER." 
PRINT 

GOTO 945 

PRINT 

PRINT "END OF RUN." 

GOSUB 1025:END 
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1000 OUTERSPACE$="MN 01 L] F O2 C ML F L2 F P8 L8 A" 

1010 PLAY "МВ XOUTERSPACE$;L1 G+ L2 G+ P8 L8 G+ LI A 
L2 À: 

1020 RETURN 

1025 OUTERSPACE$="MN 01 LI F O2 C ML F L2 F P8 L8 A" 

1030 PLAY "MB XOUTERSPACE$;Li1 B- L8 B- 03 DELAF G 
LIA L2 A;" 

1040 RETURN 

1050 BACKGROUND$="MB MS 01 L4 F C F C F C F C" 

1060 PLAY "MB XBACKGROUND$;" 

1070 RETURN 
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Elevator for the IBM PC 


REM program title: elevator 

V$=RIGHT$(TIME$,2): 'use PC clock to seed random 
number generator 

V=VAL(V$) 

RANDOMIZE V 

CLS:KEY OFF:WIDTH 40:W$-"$$4HHHHE HE 

DEF SEG-&HB800 

DIM F(60),F$(60),G$(60),GK (60) 

PRINT TAB(10)!'hP&* ELEVATOR 9984" 


PRINT 


BEEP:PRINT "INSTRUCTIONS REQUIRED (Y/N)"; 


INPUT 


I$:IF I$="N" THEN №1 


BEEP:INPUT "FIRST NAME";N$ 


PRINT: 


IF N=1 THEN 230 


BEEP:INPUT "PRESENT OCCUPATION";P$ 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"YOU HAVE JUST BEEN FIRED AS A "; 

pgp" 

"BUT, YOU ARE IN LUCK!! I HAVE JUST" 
"HIRED YOU TO BE AN ELEVATOR ATTENDANT" 
"IN MY COMPUTERIZED DEPARTMENT STORE." 
"YOUR JOB WILL BE SIMPLE, ";N$;". ALL" 
"YOU HAVE TO DO IS REMEMBER WHAT IS" 
"CONTAINED ON EACH OF SIXTEEN FLOORS" 

"SO THAT YOU CAN TAKE ALL OF MY CUSTOMERS" 
"TO THE RIGHT LOCATION..." 


REM what's on each floor? 


FOR Iz 


2 TO 19:READ F$(I):NEXT 


IF N=1 THEN 370 ELSE GOSUB 2150:PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 
PRINT 


FOR Iz 


SOUND 


"T ALMOST FORGOT TO TELL YOU--THE" 
"CUSTOMERS, WHEN STEPPING ONTO THE M 
"ELEVATOR, WILL TELL YOU WHAT THEY ARE" 
"SHOPPING FOR. THEY WON'T TELL YOU " 
"AGAIN, BUT FOR EVERY CUSTOMER YOU PLACE" 
"ON THE RIGHT FLOOR, YOU'LL BE PAID А 
"$10.00. THAT WILL BE YOUR ONLY WAGE!" 
"CUSTOMERS WILL BE GETTING ON AND OFF THE" 
"ELEVATOR AT DIFFERENT STOPS, AND YOU " 
"WILL NEED TO REMEMBER THESE, TOO, " 

Мф: "r" 

2150 

"HERE ARE THE FLOORS AND CONTENTS:" 

2 TO 16 

50%1+100,3:РВІМТ І;") ";Е$(1); 
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IF І-8 THEN TT=I*400:PRINT:GOSUB 2190 


IF I» 


2 AND І<-5 THEN 440 


IF I>=6 AND І<-10 THEN PRINT :GOTO 470 


IE Tos 
IF T>= 
PRINT 


11 AND I<=14 THEN 450 
15 AND I<=16 THEN 460 
" "SF$C17):GOTO 470 


PRINT " ";F$(18):GOTO 470 
PRINT " ";Е$(19) 


IF RX- 


1 THEN RETURN ELSE NEXT 


REM variable rx for print elements 


FOR I- 


1 TO 6:PRINT:NEXT:TT-TT--2800 


GOSUB 2190:CLS:C=0:GK=0 


SOUND 440,3:PRINT "YOU SHOULD BE ALL SET, ";N$ 
ТТ-ТТ- 


1800:GOSUB 2190:RX«1 


REM get customers 


C=INT( 
PRINT 
PRINT 


RND*10+1) 
N$;" YOU NOW HAVE";C;"CUSTOMER(S)" 


"GETTING ONTO MY ELEVATOR.":FOR KO=1 TO 


C:SOUND K0*100,2:NEXT 
REM get c responses 


1-1 


REM floor number 
F=INT(RND*14+2) 
F(I)=F:I=I+1:GK(F)=GK(F)+41 


IF I<= 


C THEN 590 


REM floor titles 


FOR I= 
G$(1)= 
NEXT 


GOSUB 
PRINT 
PRINT: 
PRINT 
F=F(1) 


IF EF» 


1 1026 
F$(F(I)) 


2190:PRINT 
"THE CUSTOMERS' DESTINATIONS:":FL=1 
FOR I-FL TO C 
6$(1);""; 


2 AND F<=5 THEN 760 


IF Е>=11 AND Е<-14 THEN 770 


ІК Fos 


PRINT 


15 AND F<=16 THEN 780 
" FLOOR" 


NEXT:GOTO 790 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
CLS 

SOUND 
SOUND 
PRINT 


440:GOTO 750 
450:GOTO 750 
460:GOTO 750 
2150 


100,1:PRINT "PRESS <U> FOR <UP>" 
200,1:PRINT "PRESS <D> FOR <DOWN>" 
"THEN ENTER THE FLOOR NUMBER" 


NN-O:REM direction 

GOSUB 2160 

D$-A$:1F D$="U" THEN D$="UP":GOTO 870 
IF D$="D" THEN D$="DOWN" 

GOTO 870 

SOUND 100,1:PRINT "DIRECTION: ";D$ 
SOUND 200,1:PRINT "FLOOR NUMBER"; 
INPUT FR:SOUND 100425*FR,3 

IF FR=1 AND TF=0 THEN 1280 

IF FR«1 OR FR»16 THEN 800 


|, IF FR=TF THEN 1280 


IF FR«TF AND D$="UP" THEN 1260 

IF FR»TF AND D$="DOWN" THEN V=1:GOTO 1260 
GOSUB 2190:CLS:REM pause before start 

ТЕ D$="UP" THEN 970 

IF D$="DOWN' THEN 1040 

BEEP:PRINT "SELECT A DIRECTION, ":;N$;"?!" 
PRINT:GOTO 810 

REM up 

IF TF>=17 THEN 1030 

GOTO 1300 

SOUND 200,3:SOUND 100,4:PRINT "YOU ARE ON THE 
"ST$;" FLOOR, ';N$ 

PRINT "YOU CAN NOT GO ANY ";H$;"!!" 

GOTO 960 

T$="TOP":H$="HIGHER":GOTO 1000 

IF TF««1 THEN 1060 

GOTO 1070 

T$-"BOTTOM":H$2"LOWER":GOTO 1000 

REM down continued movement 

Е5-Р--640:МХМ-1 

IF FF>=58 AND FF<=64 THEN 1220 

POKE P,FF:SOUND 100*FF-4500,1 

FOR T=1 TO 40:NEXT 

POKE Р,32:РОКЕ P+2,32:P=P+80 

IF P<>FS THEN 1085 

REM continue if not on floor 

IF TF<>FR THEN 1160 

GOTO 1500 

FS=FS+560 

IF Р>-1244 THEN 1190 

GOTO 1085 

POKE P,32:POKE P+2,32:P=280 
FSzP4640:FFzFF-1:TF-TF-1 

GOTO 1085 

REM floors above 9 

РОКЕ P,49:POKE P+2,FF-10:SOUND 100*FF-4500,1 
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1240 
1250 
1260 
1265 


1270 
1275 
1280 
1290 
1300 
1310 
1320 
1325 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1500 
1510 
1520 
1530 
1540 
1550 
1560 


1565 
1570 
1580 
1590 
1600 
1610 
1620 
1630 


1640 


1645 
1650 
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IF NN=1 THEN 1100 

GOTO 1340 

PRINT "IF WANTING TO GO ";D$;", USE А" 

IF У-1 THEN V=0:PRINT "USE A LOWER NUMBER." 
:GOTO 1275 

PRINT "HIGHER NUMBER THAN THIS FLOOR." 
GOTO 1290 

PRINT "YOU ARE ON THAT FLOOR, ";N$;"!!" 
GOSUB 2190:GOTO 800 

REM up movement 

IF TF«O THEN 1460 

FSzP-640:IF Е5<-278 THEN Е5-280 

IF FF>=58 AND FF<=64 THEN 1220 

POKE P,FF:SOUND 100*FF-4500,1 

FOR Т=1 TO 50:NEXT 

POKE Р,32:РОКЕ Р-2,32:Р-Р-80 

ІҒ Р<>Е5 ТНЕМ 1325 

КЕМ continue if not on floor 

IF TF<>FR THEN 1400 

GOTO 1500 

Е5-Е5-560 

IF Р<-278 THEN 1430 

GOTO 1325 

РОКЕ P,32:POKE P+2,32:P=1240 
FS=P-640:FF=FF+1:TF=TF+1 

GOTO 1325 

TF=1:P=920:FF=49 

FSzP-560:GOTO 1325 

REM on floor requested 

IF FF>=58 AND FF<=64 THEN 1530 

POKE P,FF:GOTO 1540 

POKE P,49:POKE Р+2,ЕЕ-10 

FOR I=1 TO C 

IF FR=F(I) THEN 1570 

NEXT: IF СК(ЕВ)>=1 THEN XX=1:PA=PA+10*GK(FR): 
KG=KG+GK(FR):GKCFR)=0 

GOTO 1600 
PA=PA+10:KG=KG+1:GK(FR)=GK(FR)-1 
Е(І)-0:ХХ-1 

GOTO 1560 

REM did customers want off here 
IF ХХ=0 THEN 1630 

ХХ-0:60Т0 1770 

PRINT N$;", NO CUSTOMERS WANTED TO GET OFF": 
SOUND 200,3:SOUND 100,4 

PRINT "ON THIS FLOOR...":NCxsNC«1 
HJ=HJ+1:IF HJ>=4 THEN HJ=0:FZ=1 
REM more customers stepping on 


AA-INT(RND*24-1):1IF JV=1 THEN AA=1:FZ=0 
IF FZ=1 OR FR=1 THEN AA=1:FZ=0 
IF AA=1 THEN 1690 
GOTO 1730 
YU=INTCRND*5+1) : YYzC: C C4 YU: C2zYU 
IF C>=59 THEN JV=1:C=C-C2:GOTO 1730 
REM get destinations 
GOTO 1800 
REM continue if not finished 
KG=0: IF СК>-С THEN 1940 
GOSUB 2190 
GOTO 800 
FOR KO=1 TO KG:SOUND KO*100,2:NEXT:PRINT KG; 
"OF THE CUSTOMERS JUST" 
PRINT "STEPPED OFF MY ELEVATOR, "; 
PRINT N$;".":GOSUB 2700 
GK=GK+KG:GOTO 1650 
REM yy more destinations 
YU-ABS(C-YY):1F GK>C OR GK»-10 THEN 1940 
PRINT N$;", YOU JUST HAD" ;YU; MORE" 
PRINT "CUSTOMERS STEP ONTO THE" 
PRINT "ELEVATOR. THE DESTINATION(S):" 
KG20:PRINT:FOR I=YY+1 TO C 
F=INT(RND*(16)+1) 

IF F=TF THEN 1860 

IF Е-І THEN F$(1)="GROUND":FZ=1 
Е(І)=Е:МЕХТ: КЕМ floors 

REM title of floors 
FOR I=YY+1 TO C 
G$(I)zF$(F(I)):NEXT 
FL=YY+1 
GOTO 680 
REM stop/cont 

PRINT: PRINT "YOU HAVE NOW COLLECTED:" 
PRINT USING W$;PA:PRINT:GOSUB 2190 
PRINT:GOSUB 2500 

IF JV=1 OR СК>=С THEN 1990 
GOSUB 2190:GOTO 800:REM all not off 
PRINT: GOTO 2300 

REM data for floors 
DATA WOMENS ,MENS , CHILDRENS , INFANTS 
DATA TOYS,CARPETS , COMPUTERS 
DATA APPLIANCES,FURNITURE,HARDWARE 
DATA HOBBY,AUTO,OFFICE 
DATA BATHROOM , BEDROOM 
DATA CLOTHES , SUPPLIES , ITEMS 
REM data element 17 will be used 
REM with elements 2-5 
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2090 REM data element 18 will be used 
2100 REM with elements 11-14 

2110 REM data element 19 will be used 
2120 REM with elements 15 & 16 

2150 PRINT:PRINT "PRESS A KEY...":SOUND 440,3 
2160 A$=INKEY$ 

2170 IF A$z"" THEN 2160 

2180 RETURN 

2190 REM time loop 

2200 FOR Т-1 TO TT:NEXT 

2210 GOTO 2180 

2300 REM continue? 

2310 PRINT "WOULD YOU LIKE TO TAKE ON" 
2320 PRINT "SOME MORE CUSTOMERS, ";:N$;"2?" 
2330 PRINT "YOUR TOTAL EARNINGS:"; 

2340 PRINT USING W$;PA; 

2350 INPUT A$ 

2360 IF A$<>"Y" AND A$<>"YES" THEN 2400 
2370 TT=2000:JV=0: PRINT 

2380 PRINT "YOU ARE ON FLOOR ";TF 

2390 NC=0:GOTO 490 

2400 PRINT 

2410 PRINT "END OF ELEVATOR" 

2420 END 

2500 REM point scale/pay deduction 

2510 IF NC<=0 THEN NC=0:RETURN 

2520 PRINT "YOU MADE" ;NC;"STOPS THAT WERE" 
2530 PRINT "NOT NECESSARY, '";N$;". YOU" 
2540 PRINT "WILL TAKE А DEDUCTION IN РАҮ" 
2550 PRINT "OF $20.00 FOR EACH ONE OF" 
2560 PRINT "THOSE STOPS, TOTAL"; 

2570 NN=NC*20:PRINT USING W$;NN 

2580 PRINT "LEAVING YOU": 

2590 PA=PA-—NN 

2600 PRINT USING W$;PA:GOSUB 2190 

2610 RETURN 

2700 REM any tips? 

2710 IF KG««1 THEN RETURN 

2720 AA-INT(RND*241) 

2730 IF AA=1 THEN RETURN 

2740 TISINT(RND*10041) 

2750 PA=PA+TI 

2760 PRINT 

2770 PRINT "YOU'RE IN LUCK ":N$;", A" 


2780 PRINT "NICE CUSTOMER JUST GAVE " 
2790 PRINT "YOU A TIP OF"; 


2800 PRINT USING W$;TI 
2810 GOSUB 2190:RETURN 
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Farewell for the IBM PC 


] REM program title:FAREWELL 

5 V$=RIGHT$(TIME$,2): ‘use PC clock to seed random 
number generator 

V=VAL(V$) 

RANDOMIZE V 

WIDTH 40:KEY OFF:COLOR 1,14,11:CLS:PRINT TAB(12) 
"366€ FAREWELL **#*'":GOSUB 1350 


PRINT 


INPUT "NUMBER PLAYING (1-10)";A 
IF А<1 OR А>10 THEN 25 
PRINT "THE ";А;" PLAYERS'FIRST NAMES":PLAY "ОЛА" 


FOR I= 


1 TO A 


INPUT Q$(1):SOUND 50420*I,3:NEXT 
PRINT: U=1 


PRINT 
INPUT 


"ANY OF YOU NEED TO SEE" 
"THE INSTRUCTIONS" X$ 


IF X$<>"Y" AND X$<>"YES" THEN 210 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 


"READ CAREFULLY, IT COULD MEAN" 

"YOUR LIFE (OR THE GAME!!)..." 

"EACH PLAYER WILL SEE AND STUDY A" 
"MATRIX OF 6 BY 5 SQUARES (POSITIONS)" 
"THESE WILL RANGE FROM THE " 

"LETTERS A THROUGH Z WITH" 

"FOUR SPACES BLANK. TO PLAY:" 

"THE COMPUTER WILL SELECT FIVE" 
"POSITIONS AND PLACE COBRAS" 

"WITHIN EACH. THE COMPUTER WILL" 

"SHOW YOU WHERE THREE OF THE COBRAS ARE" 
1340:PRINT: INPUT "PRESS ENTER, PLEASE:";X$ 


"NOW THE COMPUTER WILL SELECT A" 
"POSITION AND FLASH AN ASTERISK" 

"THERE. EACH PLAYER MUST ENTER FROM" 
"MEMORY THE NUMBER WHICH WAS IN THAT" 
"POSITION. IF CORRECT, THE PLAYER" 
"GAINS 1000 POINTS; IF INCORRECT, THE" 
"PLAYER LOSES 1000 POINTS. AND...IF YOU" 
"SELECT A POSITION WHERE THERE'S A " 
"COBRA...YOU'RE OUT OF THE GAME, DEAD!!" 
"SELECTION WILL CONTINUE FOR AS LONG AS" 
"EACH PLAYER WANTS OR UNTIL TWENTY-ONE" 
"POSITIONS HAVE BEEN ELIMINATED." 
1350:GOSUB 220:INPUT "PRESS ENTER TO 


START": X$ 
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CLS:GOTO 300 
DIM L$(31),PR(31) ,PC(31),L(31) 
REM letters? 


IF SL«»0 THEN PRINT "ARRANGING LETTERS..." 


L=65:1=1:PZ=1000 
L$(T)=CHR$(L):L(I)=1 

IF I-27 THEN 255 
I=I+1:L=L+1:GOTO 235 
GOTO 235 

REM sort letters randomly 
J=1 

N=INTCRND*(I-1)+1) 

IF L(N)=0 THEN 265 
L$(J)=CHR$(N+64) 
L(N)=0:J=J+1 

IF J=I THEN RETURN 

GOTO 265 

REM positions 
PC=5:PR=5:I=1:PL=PR+2:J=1:PK=PG 
PR(I)&PR:PC(I)sPC:L(I)-I 
PC=PC+6: [=I+1: J=J+1 

IF I-27 THEN 345 

IF J27 THEN 335 

GOTO 310 

PR=PL: PL=PL+2: J=1:PC=PK 
GOTO 310 

REM the remaining four 
L$(I)=" ":PR(I)=PR:PC(I)=PC:L(I)=I 
PC=PC+6: IT=I+1:J=J+1 

IF J=7 THEN 370 

GOTO 350 

REM move the four blanks 
beats Jal be27 
N-INT(RND*2641) 

IF L(N)=0 THEN 380 
F$=L$(N):L$(N)=L$(L) 
L$(L)=F$:L(N)=0 
L=L+1:IF L-31 THEN 410 
GOTO 380 

REM now print letters 
CLS:FOR I=1 TO 30 


LOCATE PR(I),PC(I):PRINT L$(I):SOUND 10% 


(ASC(L$(I))),1:NEXT 

REM final graphics 

X=2 

FOR Y=5 TO 13 

LOCATE Y,X:PRINT CHR$(222):NEXT 


X=X+6 

IF X>=40 THEN 460 

GOTO 435 

FOR X=2 TO 38 

LOCATE Y,X:PRINT CHR$(223) :NEXT 
Y=Y-2 

IF Ү<-3 THEN 490 

GOTO 460 

REM cobra positions/player 


C=1:LOCATE 15,5:PRINT "PLAYER: ";Q$(U); 
N=INT(RND*(T-5)+1) 

IF L(N)«0 OR L(N)=100 THEN 500 
CBR(C)=PR(N):CBC(C)=PC(N) : F$=L$(N):C$(C)=F$ 
L$(N )=CHR$( 42) : L(N) 2100 

IF C=5 THEN 560 ELSE IF C<=3 THEN GOSUB 530 
C=C+1:GOTO 500 

XX=0 ‘define З (1 for computer) 
LOCATE PR(N),PC(N):PRINT L$(N);:FOR T=1 TO 
100: NEXT 


LOCATE PR(N),PC(N):PRINT " ";:FOR T=1 TO 50:NEXT 


LOCATE PR(N),PC(N):PRINT F$; 

IF ХХ<=0 THEN XX=XX+1:GOTO 535 
RETURN 

REM computer select/if not done 
Shsl 

IF SL>=22 THEN 1000 ELSE GOSUB 1200 
LOCATE 16,5:PRINT "I WILL SELECT A POSITION" 
:S0UND 220,1 
N-«INT(RND*(L-1)4-1):GOSUB 1240 

IF L(N)=O OR L(N)«100 THEN 590 
F$=L$(N):IF бірі THEN GOSUB 530 
C$=F$:NU=N:GOSUB 1300:GOSUB 1200 
LOCATE 16,5:PRINT "SELECT A POSITION BY LETTER 
ONLY ,'::SOUND 220,1 

LOCATE 17,5:PRINT Q$(U); 

INPUT L$ 

[551 

IF L$=L$(1) THEN 665 

T=I+1 

IF 1>=31 THEN 675 

GOTO 635 

N=I:F$=L$:GOSUB 530 

GOTO 800 

REM cobra position or blank 

GOSUB 1200 

GOSUB 1200 

FOR Isl TO 5 
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IF L$2C$(I) THEN 735 

NEXT 

LOCATE 16,5:PRINT "YOU CANNOT SELECT A BLANK!!" 
:SOUND 220,1 

GOSUB 1240:GOSUB 1200:GOTO 610 

GOSUB 1340:REM cobra 

LOCATE 16,5:PRINT "YOU'RE DEAD, "sQ$(U);" p" 
LOCATE 17,5:PRINT "THAT IS A COBRA POSITION !!!" 
LOCATE 18,5:PRINT "Зе FAREWELL **'":GOSUB 1240 
Z4-1:GO0SUB 1200:GOTO 1020 

GOSUB 1240:GOSUB 1200:IF L$<>C$ THEN 900 
GOSUB 1350:LOCATE 16,5:PRINT "CONGRATULATIONS " 
SOS CUS eget 

LOCATE 17,5:PRINT "YOU'VE JUST GAINED ";PZ; 
PRINT "POINTS!!" 

REM points/continue 

W(U)=W(U)+PZ 

LOCATE PR(NU),PC(NU):PRINT " "; 

LOCATE 19,25:PRINT "TOTAL POINTS: ";W(U); 
GOSUB 1240:GOSUB 1200 

LOCATE 16,5:PRINT "YOU NOW HAVE ":W(U); 
"POINTS..." 

LOCATE 17,5:PRINT "...CONTINUE (Y/N)"; 

INPUT X$:1F X$="N" THEN 1020 
SL=SL+1:L(NU)=0:L$(NU)s" " 
GOTO 575 

REM wrong position 
LOCATE 16,5:PRINT "WRONG POSITION,'":0$(U):SOUND 
220,1:SOUND 100,1 

LOCATE 17,5:PRINT "YOU ARE NOW MINUS";PZ; 
PRINT "POINTS...":GOSUB 1240 

GOSUB 1200:W(U)zW(U)-PZ 

LOCATE 19,25:PRINT "TOTAL POINTS: ";W(U); 

GOTO 610 

REM final/another player 

GOSUB 1240:GOSUB 1200 

GOSUB 1350:LOCATE 16,5:PRINT "THAT'S IT, " 
sQ$(U);". YOU'VE" 

LOCATE 17,5:PRINT “REACHED THE LIMIT..." 
LOCATE 18,5:PRINT "PRESS ENTER, PLEASE:": 
INPUT X$:CLS 

IF 22-1 THEN ZZ=0:GOTO 1040 

T(U)=W(U) 

U=U+1:IF U>A THEN 1100 

PRINT Q$(U);", YOU ARE NEXT..." 

PRINT "PRESS ENTER WHEN READY:"; 

INPUT X$:CLS 


GOSUB 225:GOTO 300 

REM final/score results 

PRINT "PLAYERS AND POINTS:" 

FOR I=1 TO A 

PRINT Q$(I);": TOTAL POINTS,";T(I) 
NEXT 

PRINT 

PRINT "PROGRAM TERMINATED..." 

END 

REM clear print area 

LOCATE 16,5:PRINT STRING$(34,32) 
LOCATE 17,5:PRINT STRING$(34,32) 
RETURN 

REM time delay 

FOR TI-1 TO 2000:NEXT 

RETURN 

REM flash selection course 

FOR І-1 TO NU 

IF L$(I)&"*" OR L$(I)=" " THEN 1330 
LOCATE PR(I),PC(I):PRINT "*"::SOUND 1000,1 
FOR TI=1 TO 20:NEXT TI 

LOCATE PR(I),PC(I):PRINT L$(I);:SOUND 1500,1 
NEXT I 

RETURN 

PLAY "MB O3LSCDLAE-DLSCPSCDE-GDE-C 
RETURN 

PLAY "MB MLL801AB-02D-DD-01B-02L2D-" 
RETURN 


341 


Mind invasion for the IBM PC 


10 REM Program Title: Mind Invasion--IBM PC 
20 REM Instruction Routine 
25 WIDTH 40 
30 CLEAR 500:COLOR 2,0,14:FL=1:GOSUB 1500:J=1:TR=1 
40 REM outer graphics 
50 DEF SEG=&HB800: X=1280: Y=1358:K=219: PN=1:TX=Y-600: 
TLsTX 
60 РОКЕ X,K:POKE Ү,К:РОКЕ X+10,K:POKE Ү-10,К 
70 Х-(Х-80%2):Ү-(Ү-80)-2: 2-1 
80 IF J<>8 THEN 60 
90 REM goto character print if done 
100 IF J=16 THEN N=42:POKE TX+1,4:POKE TX,2:GOTO 140 
110 POKE X,K:POKE Y,K:POKE X410,K:POKE Y-10,K 
115 IF PN=1 THEN A(1)-X:A(2) SY: L2A(1) : R»A(2) 
120 Xz(X-80)-2:Y«(Y-80) 2 
130 J=J+1:PN=2:GOTO 100 
140 LOCATE 23,17:PRINT "YOUR POINTS="; 
150 PI=0 
160 GOSUB 910 
170 LOCATE 22,1:PRINT "PLAYER —-";:N$(PZ) 
200 REM character graphics variables 
210 J=7:E=8:EFET=1:F=8:FT=33:T=1:E2=E:ET2=ET:F2=F:FT2 
=FT:TC=1:TCT=1 :BC=15:BCT=20 
220 KY=1:G=20:GOSUB 380:IF TI>=3 THEN 880 
230 LOCATE E,ET:PRINT W$;:LOCATE F,FT:PRINT W$;:El 
=Ё+1:ЕТ1=ЕТ:Е1=Ё+1:ЕТ1=33 
240 T=T+1:GOSUB 350 
250 LOCATE E,ET:PRINT L$;:LOCATE F,FT:PRINT 1%; 
260 IF T»2 THEN J=J-1:GOSUB 380:GOSUB 350 
270 COLOR 14:LOCATE (E-1),ET:PRINT W$:LOCATE Е1,ЕТІ: 
PRINT W$:COLOR 2 
280 LOCATE(F-1),(FT-1):PRINT W$:LOCATE Fl,FT1: 
PRINT W$ 
290 LOCATE (E-1),ET:PRINT L$;:LOCATE E1,ET1:PRINT L$; 
300 LOCATE (F-1),(FT-1):PRINT L$;:LOCATE F1,FT1:PRINT 
L$; :GOTO 600 


310 E=E-1:F=F-1:FT=FT-1:EFEl1=E2+2:Fl=F2+2:;:FT1=FT2+2 
320 E2=E2+1:F2=F2+1 :FT2=FT2+1] :T=T+1 

330 REM reset variables if done 

335 GOTO 700 

340 IF T>8 THEN 200 ELSE KY=KY+1:GOTO 260 

350 REM for characters clear 

360 L$=STRING$(J, 255) :Q$=STRING$(G,42) 

370 Q1$=STRINGS$(G, 32) : RETURN 

380 W$zSTRINGS(J,N) 
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390 
400 
405 
410 
420 
425 
430 
440 
450 
460 
470 
480 


490 
500 
510 


RETURN 

X$=INKEY$ ‘user movement 

TI=TI+1 "limit count without movement 

IF LEN(X$)=0 THEN 340 

TT=1 'placement/limit/reset 

IF LEN(X$)-2 THEN Y$-MID$(X$,2,1) 

IF ASC(Y$)=72 THEN 460 

IF А5С(Ү%)-80 THEN 490 

GOTO 340 

POKE TX,32:TX-TX-80 

IF ABS(TX-TL)>160 THEN TX=TX+80 

POKE (TX41),4:POKE TX,2:SOUND 880,1:U(KY)-ASC 
(Y$):GOTO 340 

POKE TX,32:POKE TX+1,2:TX=TX+80 

IF ABS(TX-TL)>160 THEN TX-TX-80 

POKE (ТХ-1),4:РОКЕ TX,2:SOUND 880,1:U(KY)-2ASC 
(Y$):GOTO 340 

REM top/bottom characters 

COLOR 14:LOCATE TC,TCT:PRINT Q$; 

LOCATE BC,BCT:PRINT Q$;:COLOR 2:FOR Х-2000 TO 
1900 STEP -50:S0UND X,1:NEXT 

LOCATE TC,TCT:PRINT Q1$; 

LOCATE BC,BCT:PRINT Q1$; 
TC=TC+1:TCT=TCT+1 : BC-BC-1:BCT-BCT-1 

REM replace user character 


IF PEEK(TX)=32 THEN POKE TX+1,4:POKE TX,2:SOUND 


300,1 
GOTO 310 
REM crusher movement 
POKE A(1)410,32:POKE A(2)-10,32 
POKE L,32:POKE R,32 
IF ABS(L-R)s2 THEN 750 
L=L+8:R=R-8 
POKE L,K:POKE (L+10),K:GOTO 400 
L=A(1):R=A(2):GOTO 800 
POKE L,K:POKE (L+10),K:PLAY "MB XMIND$;" 
POKE R,K:POKE (R-10),K 
REM recycle 
GOTO 400 
REM crushed? 
IF PEEK(TX)=32 THEN 840 
IF ТІ<-2 AND UCKY)<>UCKY-1) THEN PI=PI+ABS 
(TX-TL):GOSUB 910 
GOTO 760 
REM yes...crushed 
LOCATE 17,1:PRINT "<<CRUSHED>>"; 
PLAY "MB O4L32BGBGBGBGBGBGBGBG" 
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860 POKE TX,32 
870 FOR LxX=1 TO 2000:NEXT:GOTO 950 
880 REM limit reached/no movement 
890 ТІ-0 
900 PI-PI-ABS(TL-TX):GOSUB 910:GOTO 920 
910 LOCATE 23,31:PRINT PI;:RETURN 
920 GOTO 230 
950 REM player advance/end 
960 TP(PZ)=PI:PI=0:PZ=PZ+1 
970 IF PZ>PL THEN GOSUB 1200:TR=TR+1:PZ=1 
980 IF TR>=3 THEN GOSUB 1240:GOTO 1010 
990 FOR LX=1 TO 14:PRINT:NEXT 
1000 GOSUB 2100:CLS:J=1:GOTO 40 
1010 REM end/high point winner 
1020 Т-0:Н-1:ІҒ H=PL THEN 1120 
1030 IF FT(H)>=FT(H+1) THEN 1080 
1040 ЕТ-ЕТ(Н):ЕТ(Н)-ЕТ(Н-1) 
1050 FT(H-1)sFT:N$zN$(H):N$(H)sN$(H41) 
1060 N$(H+1)=N$ 
1070 T=] 
1080 H=H+1 
1090 IF H<PL THEN 1030 
1100 IF T=1 THEN 1020:REM not refined 
1110 GOTO 1300 
1120 CLS 
1130 PRINT 
1140 PRINT "YOUR TOTAL POINTS, AFTER 2 ROUNDS="; 
TP(H)+WE(H) 
1160 GOTO 1390 
1190 REM tally first round points 
1200 REM tally first round points 
1210 IF TR>=2 THEN RETURN 
1220 FOR І-1 TO PL 
1230 WE(I)STP(I):NEXT:RETURN 
1240 REM final tally 
1250 FOR I=1 TO PL 
1260 FT(T)=WE(T)+TP(T) 
1270 NEXT 
1280 RETURN 
1300 REM top winner(more than 1 player) 
1310 CLS 
1320 I=1 
1330 PRINT "THE TOP WINNER: ";N$(I);" WITH "; 
1340 PRINT FT(1);" POINTS," 
1350 PRINT "FOLLOWED BY:" 
1360 FOR І-2 TO PL:PRINT N$(I);" WITH "; 
1370 PRINT FT(I);" POINTS." 
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1380 
1390 
1400 
1410 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 


1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 


NEXT 
PRINT 


PRINT "END OF PROGRAM RUN." 


END 


REM instructions 

I$z" MIND INVASION " 

Iz10:CLS 

FOR LX=1 TO LEN(I$) 

PRINT TAB(I) MID$(I$,LX,1);:SOUND 300,1 
FOR Y=1 TO 50:NEXT Y 

І=І+1:МЕХТ LX 

FOR Y=1 TO 1000:NEXT 


PRINT 


INPUT "NUMBER OF PLAYERS (1-10)";PL:SOUND 200,2 
IF PL<=0 OR PL»-11 THEN 1590 


PRINT 


"PLAY OUTLINE NECESSARY?'; 


INPUT X$ 


IF X$- 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT: 
PRINT 


"N" OR X$="NO" THEN 2040 


"EACH OF YOU ';PL;" PLAYERS WILL 
"EXPERIENCE A NEW FORM OF MIND" 
"INVASION. THE OBJECT OF THE GAME:" 
"KEEP PLAYING AS LONG AS POSSIBLE" 
"WITHOUT GETTING °CRUSHED'." 

"YOU, THE USER, WILL BE LOCATED AT" 
"THE CENTER OF THE VIDEO DISPLAY" 
"LOOKING LIKE THIS:";:COLOR 4:PRINT 


CHR$(2)::COLOR 2:PRINT " YOUR" 


"ONLY MOVEMENTS WILL BE STRAIGHT" 
"UP OR STRAIGHT DOWN, INDICATED" 
"BY THE «UP ARROW» AND <DOWN" 
"ARROW> KEYS." 

GOSUB 2170 

"STRIKE A KEY TO CONTINUE" 


Х%-ІМКЕУ%:ІЕ X$=""THEN 1790 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"TO TAKE ADVANTAGE OF ANY POINTS" 
"YOU MUST BE CONSTANTLY MOVING," 

"UP OR DOWN. THE OUTER BOUNDARIES" 
"OF THE VIDEO WILL CONTAIN" 
"FLASHING ASTERISKS, FOR CONFUSION." 
"ALSO CONTAINED IN THOSE BOUNDARIES" 
"ARE BLOCKS, TWO OF WHICH," 

"WITHOUT NOTICE, WILL MOVE VERY! 
"QUICKLY TOWARD YOUR LOCATION." 

"IF YOU ARE SUCCESSFUL IN" 

"MOVING OUT OF THE WAY, YOU" 
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1920 
1925 
1930 
1940 
1950 
1960 
1970 
1980 
1985 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 


2080 
2090 
2100 
2105 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 


PRINT "CAN CONTINUE PLAYING. IF, ON" 

GOSUB 2170:FOR LX=1 TO 5000:NEXT 

PRINT "THE OTHER HAND, YOU ARE CRUSHED" 
PRINT "PLAY WILL ADVANCE TO THE NEXT" 

PRINT "PLAYER. THIS IS ALSO TRUE IF" 

PRINT "YOU COLLIDE WITH THE BLOCKS." 

FOR LX-1 TO 2000:NEXT 

GOSUB 2170:PRINT "STRIKE A KEY TO CONTINUE" 
X$-INKEY$:1F Х$="" THEN 1985 ELSE PRINT 
PRINT "THE GAME WILL TERMINATE WHEN EACH" 
PRINT "PLAYER HAS PLAYED A TOTAL OF TWO" 
PRINT "ROUNDS. THE PLAYER FINISHING WITH" 
PRINT "THE HIGHEST POINTS WILL BE THE" 
PRINT "WINNER." 

PRINT 

PRINT "NOW ENTER THE FIRST NAMES OF" 

PRINT "THE ";PL;" PLAYERS:" 

FOR I-1 TO PL:PRINT "PLAYER #";I;:INPUT N$(I): 
SOUND 300,1 

NEXT 

PZ=1 

PRINT N$(PZ);" WILL NOW PLAY. STRIKE" 

IF PZ>=2 OR TR>=2 THEN 2150 

PRINT "A KEY WHEN READY:" 

X$=INKEY$:IF X$=""THEN 2120 

CLS 

RETURN 

PRINT "THE ENTER KEY WHEN READY"; 

INPUT X$:TI=0:RETURN 
MIND$="MNOICFC+F4+DGD+G+":IF FL-1 THEN GOTO 2200 
PLAY "T60 XMIND$;T120 XMIND$;":FL-1 

RETURN 

PLAY "T240 LAXMIND$;L8 XMIND$;XMIND$;XMIND$; 
XMIND$;" 


2210 RETURN 
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Knights for the IBM PC 


] CLEAR 700 
5 CLEAR 700 
10 REM program title KNIGHTS 
15 V$=RIGHT$(TIME$,2): 'use PC clock to seed random 
number generator 
20 V=VAL(V$) 
25 RANDOMIZE V 
30 HORN$="MB T100 02 L16E- L4B- L16E- L4B-" 
35 KEY OFF:WIDTH 80:COLOR 1,11,14:CLS 
40 PRINT TAB(30)"»»»»KNIGHTS««««":PLAY "XHORN$;" 
45 PRINT 
50 PRINT "INSTRUCTIONS NEEDED"; 
55 INPUT T$ 
60 IF T¢="N" OR T$="NO" THEN 205 
65 PRINT "THERE ARE TEN KNIGHTS IN A CASTLE. 
THESE ARE KNIGHTS WHO HAVE DONE WRONG" 
70 PRINT 
75 PRINT "AND WERE IN A DUNGEON WAITING TO HAVE 
THEIR HEADS REMOVED." 
80 PRINT 
85 PRINT "THEY HAVE ESCAPED THE DUNGEON AND CAPTURED 
THE CASTLE. THEY HAVE WITH THEM" 
90 PRINT 
95 PRINT "EIGHT HOSTAGES." 
100 PRINT 
105 PRINT "THE KING WILL NOT MEET THE CONDITIONS 
THEY HAVE SET FORTH, SO THEY VOW" 
110 PRINT 
115 PRINT "TO FIGHT TO THE DEATH" 
120 PRINT: INPUT "PRESS «ENTER» TO CONTINUE" ,T$:PLAY 
"XHORN$;" 
125 PRINT 
130 PRINT "YOU ARE THE SHARPSHOOTER SELECTED BY THE 
KING TO TERMINATE " 
135 PRINT 
140 PRINT "THESE KNIGHTS. YOU ARE EQUIPPED WITH A 
HIGH-POWER CROSSBOW." 
145 PRINT 
150 PRINT "ALONG THE CASTLE WALLS ARE FIVE WINDOWS. 
EACH TIME A FIGURE" 
155 PRINT 
160 PRINT "APPEARS AT A WINDOW YOU'LL HAVE THE 
OPTION TO FIRE (BY STRIKING" 
165 PRINT 
170 PRINT "THE SPACE BAR) OR NOT. THE FIGURE THAT 
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APPEARS AT A WINDOW" 

175 PRINT 

180 PRINT "COULD BE ONE OF THE HOSTAGES; BUT IF IT 
IS A KNIGHT AND YOU DON'T" 

185 PRINT 

190 PRINT "FIRE, YOU COULD BE HIT..." 

195 PRINT 

200 INPUT "PRESS «ENTER» TO BEGIN",T$:PLAY "XHORN$;" 

205 CLS:K=10:HD=8:CR=10 

210 SCREEN 1,0 'draw castle 

215 COLOR 9,0 

225 LINE (20,60)-(290,148) ,3,BF 

230 FOR X=20 TO 280 STEP 20 

235 LINE (X,50)-((X+10) ,60) ,3, BF 

240 NEXT X 

245 LINE (20,40)-(90,60),3,BF 

250 LINE (220,40)-(290,60),3,ВЕ 

255 Х-20 

200 FOR Ү-Х TO (X460) STEP 20 

265 LINE (Y,30)-((Y410),40),3,BF 

270 NEXT Y 

275 X=X+200:IF X<=220 THEN 260 

280 FOR X=55 TO 255 STEP 200 

285 LINE (X,10)-(X,40),3 

290 NEXT X:PLAY "O3L8CL12D-E-D-L8CP1602116A-L4B-" 

295 FOR X«56 TO 256 STEP 200 'draw flags 

300 LINE (X,10)-(X,20),2 

305 LINE -((Х-20),15),2 

310 LINE -(X,10),2 

315 PAINT ((X42),15),2 

320 NEXT X 

325 2-70:Ү-40:ЕОВЕ X=4 TO О STEP -2 'draw and 
save windows 

330 LINE ((Y-X) ,(CZ-X) ) -CCY420-X) , (24-404) ) ,(X/2) , BF 

335 NEXT X | РЕ | 

340 DIM WINDOW( 340) :GET(36,66)-(64,114) , WINDOW 

345 PI=3.14159:CIRCLE( 50,110) ,7,3,-2*PT, -1*PT:PAINT 
(50,109) ,3 ‘draw and save figure 

350 CIRCLE(50,96) ,7,3:PAINT(50, 96) ,3 

355 DIM FIGURE( 340) :GET(36,66)-(64,114) , FIGURE 

357 DIM HOLE( 34): GET( 290, 160)~( 300,170) , HOLE 


"hole for arrows that miss 


360 FOR X=36 TO 282 STEP 50 'window placement 
365 PUT(X,66) ,WINDOW, PSET 


370 NEXT Y 


PM A4 А. db 


590 REM get a window 
600 W=INTCRND*5+1 ) 
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610 WIzW*50-14 

615 BLANK$-STRING$(119,0) 

620 REM pause before placing 

630 PA«INT(RND*70041):1IF PA<=250 THEN 630 

640 FOR PU-1 TO 700 

650 IF PUPA THEN 670 

660 NEXT:GOTO 630 

670 PUT(WI,66),FIGURE, PSET 

680 REM sharpshooter to fire 

690 FOR TI-1 TO 150 

700 W$=INKEY$ 

710 IF W$<>""THEN 730 

720 NEXT 

730 REM knight or hostage 

740 HI=INT(RND*5+1) :H2=INT(RND*5+1) :H3=INT(RND*5+1 ) 

750 H-ABS(H1-H2-H3) 

760 PUT(WI,66),WINDOW, PSET 

762 IF H=W THEN 1240 

765 IF HD<=0 THEN 840 

770 IF Н<-0 OR H>=5 AND TI<=99 THEN 790 

780 GOTO 840 

790 REM a hostage 

800 IF TI>=112 THEN 880 

810 SOUND 300,2:SOUND 100,3:LOCATE 20,1:PRINT 
"YOU HAVE JUST KILLED ONE" 

820 PRINT "OF THE HOSTAGES, TURKEY! !" 

830 GOTO 970 

840 IF TI>=150 THEN 880 

850 FOR 50-400 TO 1000 STEP 50:SOUND SO,1:NEXT: 
LOCATE 20,1:PRINT "GOOD SHOOTING, YOU HAVE" 

860 PRINT "ELIMINATED ANOTHER KNIGHT!" 

870 GOTO 940 

880 IF H>=0 AND H<=2 THEN 1020 

890 FOR 50-1000 TO 400 STEP -50:50UND SO,1:NEXT: 
LOCATE 20,1:PRINT "THINK FASTER! YOU HAVE BEEN" 


900 PRINT "HIT BY ONE OF THE KNIGHTS! !" 
910 HK=HK+1 

920 IF HK>=6 THEN 1060 

930 GOTO 990 

940 K-K-1:PRINT K;" KNIGHTS REMAIN." 
950 IF К<=0 THEN 1120 

960 GOTO 990 

970 HD=HD-1 

980 IF HD«zO THEN 1180 

990 FOR ТХ-1 TO 3000:NEXT 

1000 REM clear print area 

1010 LOCATE 20,1:PRINT BLANK$;:GOTO 14000U HAVE BEEN" 
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1020 
1030 


1040 
1050 
1060 
1080 


1090 
1100 
1110 
1120 
1140 
1150 
1160 
1170 
1180 
1200 


1210 
1220 
1230 
1240 
1245 
1250 
1270 
1290 
1310 


1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
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IF HD<=0 THEN 890 

PLAY "XHORN$;":LOCATE 20,1:PRINT "GOOD THING 
YOU DID NOT FIRE;" 

PRINT "THAT WAS A HOSTAGE!!" 

GOTO 990 

REM hit enough 

PLAY "MB T60 O2DL8D.L16DL4DL8FEEDD.L16C+L4D" 
:LOCATE 20,1:PRINT "YOU HAVE BEEN HIT ";HK; 
" TIMES." 

PRINT "YOUR BODY CANNOT STAND" 

PRINT "ANY MORE. YOU ARE DYING..... М 

СОТО 1530 

КЕМ knights killed 

LOCATE 20,1:PRINT "YOU HAVE DESTROYED ALL TEN" 
PRINT "KNIGHTS. THE KING WILL BE" 

PRINT "PROUD OF YOU, MY FRIEND...." 

GOTO 1530 

REM hostages gone . 

LOCATE 20,1:PRINT "YOU HAVE KILLED ALL EIGHT" 
IMES." 

PRINT "OF THE HOSTAGES, YOU TURKEY!!" 

PRINT "THE KING WILL HAVE YOUR HEAD!!" 

GOTO 990 

REM complete miss 

IF TI>=100 THEN 765 

XX-INT(RND*260420) 

YY=INT(RND*38+110) 

PUT(XX, YY) , HOLE, PSET 

LOCATE 20,1:PRINT "YOU'LL HAVE TO DO BETTER" 
:PLAY "T120 01 B-D" 

PRINT "THAN THAT, YOU'VE MISSED COMPLETELY! 1" 
GOTO 990 

REM crossbow rounds 

REM crossbow rounds 

PRINT 

PRINT "YOU HAVE ";CR;" ARROWS LEFT TO FIRE." 
RETURN 

REM enough arrows left 

REM enough arrows left 

IF ТІ<-99 THEN CR=CR-1 


GOSUB 1350:IF CR<=0 THEN 1440 
GOTO 590 

REM end 

FOR TX=1 TO 2000:NEXT 

CLS 

PRINT "YOU HAVE EXHAUSTED YOUR" 


PRINT "SUPPLY OF CROSSBOW ARROWS." 


1490 IF K<>0 THEN 1510 

1500 GOTO 1530 

1510 PRINT "THERE ARE STILL ";K;" KNIGHTS " 
1520 PRINT "IN THE CASTLE..." 

1530 PRINT 

1540 IF HD<=0 THEN 1560 

1550 GOTO 1600 

1560 PRINT "YOU ARE A BLUNDERING SHARP-" 
1570 PRINT "SHOOTER, YOU IDIOT!!" 

1580 PRINT "YOU HAVE HIT AND KILLED ALL" 
1590 PRINT "EIGHT HOSTAGES!!!" 

1600 PRINT:FOR T=1 TO 5000:NEXT 

1610 PRINT "END OF RUN." 

1615 SCREEN 0,0,0 

1620 END 
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Injection for the IBM PC 


CLEAR 


100 


REM program title: INJECTION 
V$=RIGHT$(TIME$,2): 'use PC clock to seed 
random number generator 

V=VAL(V$) 

RANDOMIZE V 


COLOR 


5,7,9:WIDTH 40:KEY OFF:CLS 


PRINT TAB(15)"» INJECTION <" 


PRINT 
INPUT 


"NUMBER TO PLAY (1-10)";U 


IF 0<1 OR U»10 THEN 45 


PRINT 


FOR І- 


"THE INITIALS OF PLAYERS:" 
1 TO U:INPUT K$(I) 


NEXT: PRINT: PL=1:CL5 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


"YOU ARE HEAD OF A LABORATORY" 

"TN WHICH YOUR COMPANY IS IN THE" 
"PROCESS OF INJECTING CUBES WITH" 
"A SOLVENT, TO DESTROY A COLONY" 
"OF BACTERIA WHICH CANNOT BE" 
"CONTROLLED. THESE CUBES WILL" 
"RACE ACROSS THE SCREEN FIVE AT A" 
"TIME. TO INJECT A CUBE, HOLD" 
"THE «UP ARROW» KEY. THE INJECTED" 
"SOLVENT MUST STRIKE THE OPENING" 
"AT THE BOTTOM OF THE CUBES." 


"PRESS «ENTER» TO CONTINUE";L 


CLS: PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
CLS 


"EACH TIME A CUBE IS INJECTED," 
"THE NUMBER RACING ACROSS THE" 
"SCREEN WILL DECREASE BY ONE, BUT" 
"NO FEWER THAN THREE WILL RACE" 
"ACROSS AT ONE TIME. A TOTAL" 

"OF TEN CUBES MUST BE INJECTED." 
"IF AT ANY TIME YOU MISS AN" 
"INJECTION, THE NUMBER OF CUBES WILL" 
"INCREASE BY ONE. THE INJECTION" 
"MACHINE CAN BE MOVED LEFT OR" 
"RIGHT, WITH THE LEFT AND RIGHT" 
"ARROW KEYS. GOOD LUCK." 


"PRESS ENTER TO BEGIN",L 


REM the cubes 


225 SCREEN 1,0:COLOR 0,1:JJ=0 

230 DIM ALL(1992):DIM INJECTOR(804) 

235 DIM BLANK(228) :GET(0,0)-(30, 28) , BLANK 

240 LINE(2,2)-(28,26) , 2, BF: 

245 LINE(11,20)-(15,26) ,3,B: PAINT(12,21),3:DIM CUBE 
(228) :GET(0,0)-(30,28) , CUBE: PUT(0,0) , BLANK , PSET 

260 REM setting up graphics 

270 FOR X=5 TO 205 STEP 50 

280 PUT(X,60) , CUBE, PSET 

290 NEXT 

300 GET(0,60)-( 235,88) ,ALL: DIM SERUMBLANK(17) : GET 
(164,138)-(166,151) , SERUMBLANK 

310 REM draw injection machine 

317 LINE (165,146)-(165,138) , 1: DIM SERUM(17):GET 
(164,138)-(166,151) , SERUM 

320 LINE (150,169)-(180,199) ,3,BF:LINE(140,197)- 
(190,199),3,BF:LINE (150,169)-(1 65,159) ,1:LINE - 
(180,169) , 1: LINE -(150,169) , 1: PAINT(165,160),1,1 
: LINE (165,159)-(165,149),1 

325 GET(133,149)-(197,199) , INJECTOR 

340 CLS: 

410 JN=0:T=1:IN=10:E=0:CV=5:GOSUB 600 

420 REM move cubes 

430 X=0:INC=30:MINC=INC :M=X: J=0: JJ=0:P=1 

440 PUT(X,60) ,CUBE, PSET 

470 X=X+INC:J=J+1:SOUND 10*X+50*P,2:P=P+.1 

480 IF JJ=1 THEN GOTO 520 

490 IF J>=CV THEN 510 

500 GOTO 440 

510 REM blank out 

520 PUT(M,60) , BLANK , PSET 

540 M=M+MINC 

550 REM recycle 

560 IF X>=259 OR X<=0 THEN INC=-INC:JJ=1:GOTO 580 

570 IF M>=259 OR М<=0 THEN MINC=INC 

580 GOTO 720 

600 INJ=150:REM injector 

610 PUT (INJ,149),INJECTOR,PSET:SOUND INJ*10+50,1 

670 CA=0:QR=138:QC=INJ+31 

690 LOCATE 1,1:PRINT "CUBES REMAINING:"; 

700 LOCATE 2,1:PRINT "CUBES ADDED:"; 

710 PRINT K$(PL):RETURN 

720 REM injection/injector move 

730 IF R=72 THEN 790 

740 RR$=INKEY$:IF LEN(RR$)-2 THEN R$=MID$(RR$,2,1): 
R=ASC(R$) 

750 IF R=72 THEN 790 
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IF R=75 THEN 900 

IF R=77 THEN 960 

GOTO 440 

IF JN-1 THEN 810 

QQ=INJ:QK=QC: JN=1 

IF QR<=65 THEN V=1:GOTO 870 

IF POINT(QC,QR-5)-0 THEN GOTO 830 

IF POINT(QC,QR-5)=2 THEN V=1:PUT(QC,QR), 
SERUMBLANK , PSET:GOTO 870 

IF POINT(QC,QR-5)=3 THEN PAINT(QC,QR-5),1,3:PUT 
(QC,QR) , SERUMBLANK , PSET:GOTO 1060 
QRZQR-5:PUT(QC,QR), SERUM, PSET: SOUND 10*(24-QR),1 
GOTO 440 

INJ=QQ+-E: QC-2INJ431:QQz0:E-20:QR-138: P=1 
PUTCINJ, 149) , INJECTOR , PSET 

IF V=1 THEN GOSUB 1140 

R=0: JN=0:GOTO 440 

REM to left 

IF INJ««O THEN 440 

INJ«INJ-T:QC-INJ431 
PUT(INJ,149),INJECTOR,PSET 

GOTO 440 

REM to right 

IF INJ»-254 THEN 440 


) INJ=INJ+T : QC=INJ+31 


РОТ(ІМЈ, 149) , INJECTOR , PSET 

GOTO 440 

REM injected 

T=T+1:CV=CV-1:FOR B-1 TO 3:SOUND 2000,1:50UND 
2250,1:NEXT B 

IF T>5 THEN T=1 

IF CV<=2 THEN CV=5 

IN-IN-1:LOCATE 1,20:PRINT IN; 

IF IN<=0 THEN 1250 

E=INTCRND*5):IF Е+00>=256 THEN E=-(RND*5) 
GOTO 870 

REM cube added/injection missed 
IN=IN+1:FOR B=500 TO 600 STEP 20:SOUND В,1: 
NEXT B 

CA=CA+1:V=0 

T=T-1 

IF T<=0 THEN Т-1 

LOCATE 1,20:PRINT IN; 

LOCATE 2,15:PRINT CA; 

RETURN 

REM player advance 

W(PL)=CA: PL=PL+1 


1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1535 
1540 


IF PL>U THEN 1310 


LOCATE 3,I:PRINT "STANDBY, "sK$(PL):" s 4 


FOR ҮҮ=1 TO 1500:NEXT 

R=0:GOTO 410 

FOR YY=1 TO 900:NEXT:CLS 

PRINT "ALL PLAYERS HAVE HAD THEIR" 
PRINT "TURNS AT THE INJECTION MACHINE." 
PRINT "SCORES ARE BASED ON THE NUMBER" 
PRINT "OF CUBES THAT WHERE ADDED DURING" 
PRINT "THE INJECTION PROCESS." 
PRINT:FOR І-1 ТОС) 

PRINT "INJECTOR: ";K$(I) 

PRINT "HAD ";W(I);" CUBES ADDED." 
PRINT "FINAL SCORE EVALUATION: "; 
W-W(I) 

IF W>=0 AND W<=5 THEN 1470 

IF W>=5 AND W<=10 THEN 1480 

IF W>=10 AND W<=20 THEN 1490 

PRINT "TOO HORRIBLE TO MENTION." 

GOTO 1500 

PRINT "EXCELLENT.":GOTO 1500 

PRINT "FAIR.":GOTO 1500 

PRINT "POOR." 

FOR ҮҮ-1 TO 1200:NEXT YY:PRINT 

NEXT I 

PRINT 

PRINT "END OF INJECTION" 

SCREEN 0,0,0 

END 
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Point А to Point B for the IBM PC 


] REM program title: POINT A TO POINT B 
5 CLEAR 300 
10 V$=RIGHT$(TIME$,2): 'use PC clock to seed random 
number generator 
15 V=VAL(V$) 
20 RANDOMIZE V:DIM SONG$(13) 
30 COLOR 14,10,14:CLS:KEY OFF:WIDTH 40:DEF 
SEG=&HB800 
40 PRINT TAB(15) "« FROM POINT A >":BEEP 
50 PRINT TAB(15) "< TO POINT B >":SOUND 500,3 
60 PRINT:DIM D$(50) ,S(50) 
70 BEEP: INPUT "INSTRUCTIONS (Y/N)';W$ 
80 IF W$="N" OR W$="NO" THEN G=1 
90 BEEP: INPUT "NUMBER TO PLAY (1-10)";A 
100 IF A«1 OR A»10 THEN 90 
110 IF G=1 THEN G=0:GOTO 410 
120 PLAY "MB L8 F E F A C':LOCATE 3,1:PRINT "ARE YOU 
CONFUSED BY THE MANY" 
130 PRINT "DIFFERENT MAZE GAMES THAT ARE" 
140 PRINT "CURRENTLY ON THE MARKET? HAVE" 
150 PRINT "NO FEAR!! «FROM POINT A TO " 
160 PRINT "POINT B» IS HERE!!" 
170 PRINT:PRINT "ACTUALLY, THIS IS NOT YOUR" 
180 PRINT "RUN-OF-THE-MILL MAZE GAME." 
190 PRINT "IT IS ONE THAT WILL PROBABLY" 
200 PRINT "CONFUSE YOU MORE THAN EVER!" 
210 PRINT "YOU SEE, YOU WILL NOT BE" 
220 PRINT "CONSTANTLY PRESSING DIFFERENT" 
230 PRINT "KEYS FOR DIFFERENT DIRECTIONS;" 
240 PRINT "INSTEAD, YOU'LL INPUT ALL" 
250 PRINT: INPUT "PRESS ENTER TO CONTINUE" ,W 


270 PLAY "MB L8 C C+ D E F":PRINT "OF THE 
INSTRUCTIONS BEFORE YOU" 

280 PRINT "MOVE AT ALL: UP SO MANY" 

290 PRINT "SPACES, RIGHT SO MANY SPACES," 

300 PRINT "LEFT, SO MANY, ETC., ETC." 

310 PRINT "AFTER YOU HAVE ENTERED ALL" 

320 PRINT "OF YOUR DIRECTION INSTRUCTIONS" 

330 PRINT "YOU WILL INPUT «XX». AT THAT" 

340 PRINT "POINT YOUR PIECE WILL BEGIN " 

350 PRINT "TO MOVE FOLLOWING THE INSTRUCTIONS" 

360 PRINT "YOU GAVE. ІЕ AT ANY POINT YOU " 

370 PRINT "COLLIDE WITH ANYTHING OTHER" 

380 PRINT "THAN A BLANK SPACE--END OF TURN..." 


660 
670 
680 
690 
700 
710 


PRINT 

INPUT "PRESS ENTER, АСАТМ",М 
CLS 

REM players 

REM play in order of entry 


BEEP:PRINT "ENTER THE FIRST NAMES OF" 

PRINT "THE ";A;"PLAYERS, PLEASE" 

FOR I-1 TO A:INPUT A$(I):SOUND 100425*1,3 

NEXT: L=1:MX=0 

PRINT 

PRINT "TO BEGIN, ";A$(L);", PRESS ENTER"; 

INPUT W 

REM graphics and music 

FOR I=1 TO 13:READ SONG$(I) :NEXT 

CLS:SNG=1:PLAY "XSONG$(SNG);":GOTO 580 

LOCATE 1,1:PRINT STRING$(40,32):LOCATE 2,2:PRINT 

STRING$(36, 219); 

DC=INT (RND*6+25) : DR=2 

LOCATE DR,DC:PRINT STRING$(2,32); :RETURN 

GOSUB 560:LOCATE 8,2:PRINT STRING$(9,219); 

LOCATE 8,18:PRINT STRING$(9,219);:GOTO 620 

LOCATE 8,22:PRINT STRING$(14,219) 

DC-INT(RND* 7430) : DR=6 

LOCATE DR,DC:PRINT STRING$(2,32); : RETURN 

GOSUB 700:M=10:Ml=20:M2=6:M3=12:GOTO 670 

SNG=SNG+1:IF SNG<=13 THEN PLAY "XSONG$(SNG);" 

IF M2<=0 THEN M2-INT(RND*442) 

IF M2>=23 THEN M2=INT(RND*10+13) 

IF М1<=0 THEN MISINT(RND*10-1) 

IF Ml>=40 THEN М1=38 

FOR Х-М TO MI:LOCATE M2,X:PRINT CHR$(219) 

DR=8 : DC=INT(RND#10+10) :FR=11:FC=INT(RND*10+20) 

LOCATE DR,DC:PRINT STRING$(10,219):LOCATE FR,FC: 

PRINT STRING$(10,219) 

FOR ROW=12 TO 14:COL-INT(RND*2541):GAP-INT(RND* 

15+1):LOCATE ROW,COL:PRINT STRING$(GAP,32):NEXT: 

LOCATE 8,COL:PRINT STRING$(GAP,32) 

Mr M3,X:PRINT CHR$(219):NEXT:FOR X=M2+1 TO 
3-2 

LOCATE X,M:PRINT CHR$(219):LOCATE X,(M*1):PRINT 

CHR$(219):LOCATE X,(M1-1):PRINT CHR$(219) 

LOCATE X,M1:PRINT CHR$(219):NEXT:RETURN 

GOSUB 630 

M=1:Ml=5:M2=12:M3=16:GOSUB 630 

M=6:M1=9:GOSUB 630 

M=M1+1:M1=M1+22:M2=M3-2:M3=M3+6 

GOSUB 630 
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M=M1+1:M1=M1+9:M2=M2+6:M3=M3+6 
GOSUB 630 
M=1:M1=9:GOSUB 630:GOTO 770 
LOCATE 20,10:PRINT STRING$(25,219) 
LOCATE 12,30:PRINT STRING$(8,219) 
DC=INT(22*RND+10) : DR220 
FC-INT(6*RND431):FR-12 
LOCATE DR,DC:PRINT STRING$(2, 32); 
LOCATE FR,FC:PRINT STRING$(2,32);:RETURN 
GOSUB 750:М1=М1-3:М2=М3+2:М3=М3+6 
GOSUB 630 
=М1+1:М1=М1+4 
GOSUB 630 
IF М>=38 THEN 880 
GOTO 780 
MzM-5:M1zM43:M2z2:M3-10 
GOSUB 630 
М=М-4 : М1=М+4 :М2=М3+2 : М3=М3+8 
GOSUB 630 
М=М-5:М1=М+1 :М2=4:М3=6 
GOSUB 630: ВЕТОВМ 
REM start/stop locations 
GOSUB 820:Y=21:X2=40 
X1-INT(RND*(X2-1) 42) 
IF G-1 THEN 1110 | 
COLOR 11:LOCATE 23,5:PRINT "THIS IS POINT A 
(ЅТАВТ)." 
LOCATE Y,X1:PRINT CHR$(32):LOCATE Y,(X1-1): 
PRINT CHR$(32) 
FOR Т-1 TO 50:NEXT 
COLOR 27:LOCATE Y,X1:PRINT CHR$(219) 
FOR T=1 TO 1000:NEXT 
COLOR 11:LOCATE Y,X1:PRINT CHR$(219) 
IF G=1 THEN 1150 ELSE JJ=X1 
іші 
LOCATE 23,5:PRINT "LOOK AT THE TOP (POINT B)." 
Y=1:X2=30:GOTO 900 
LOCATE 23,5:PRINT STRING$(35, 32) 
LOCATE 23,5:PRINT "THIS IS POINT B (STOP 
ZONE) ." 
R=X1:GOTO 1020 
LOCATE 23,5:PRINT STRING$(35,32) 
GOTO 1210 
LOCATE 23,5:PRINT STRING$(35,32):LOCATE 23,5 
RETURN 
FOR T«1 TO 2000:NEXT 
GOSUB 1170:RETURN 


1210 GOSUB 1170 

1220 PRINT "YOU WILL NOW GIVE INSTRUCTIONS: 

1230 GOSUB 1190:GOSUB 1170 

1240 PRINT "TO ENTER THE STOP ZONE..." 

1250 GOSUB 1190:GOSUB 1170 

1260 PRINT "STOP ZONE BLOCK MUST BE HIT: 

1270 GOSUB 1190:GOSUB 1170 

1280 PRINT "HEAD-ON TO COMPLETE A RUN." 

1290 GOSUB 1190:GOSUB 1170 

1300 I=1 

1310 INPUT "DIRECTION (L,R,U,D)",D$:SOUND 500,3 

1320 IF D$="XX" THEN 1380 

1330 D$(1)=D$:GOSUB 1170 

1340 INPUT "FOR HOW MANY SPACES";S:BEEP 

1350 S(I)=S:I=I+1:GOSUB 1170 

1360 IF I>=51 THEN 1430 

1370 GOSUB 1200:GOSUB 1170:GOTO 1310 

1380 GOSUB 1170 

1390 PRINT "THE COMPUTER WILL NOW CARRY" 

1400 GOSUB 1190:GOSUB 1170 

1410 PRINT "OUT ALL OF YOUR INSTRUCTIONS." 

1420 [=I-1:H=I:I=1:X=JJ:Y=21:G=0 

1425 GOSUB 1190:GOTO 1480 

1430 GOSUB 1170 

1440 PRINT "THAT IS THE LIMIT OF THE" 

1450 GOSUB 1190:GOSUB 1170 

1460 PRINT "INSTRUCTIONS YOU CAN ENTER." 

1470 GOSUB 1190:GOTO 1380 

1480 D$=D$(1):S=S(I):J=1:IF I<=12 THEN PLAY 
"XSONG$(I);" 

1490 IF D$="L" THEN 1540 

1500 IF D$="R" THEN 1580 

1510 IF D$="U" THEN 1620 

1520 IF D$="D" THEN 1660 

1530 GOTO 1760  'bad direct 

1540 IF PEEK( (X-2)*2+(Y-1)*80)=219 THEN 1760 

1550 X=X-1:LOCATE Y,X41:PRINT CHR$(32) 

1560 IF X«-0 THEN 1760 

1570 GOTO 1690 

1580 IF PEEK(X*24-(Y-1)*80)-219 THEN 1760 

1590 X=X+1:LOCATE Y,(X-1):PRINT CHR$(32) 

1600 IF X>=40 THEN 1760 

1610 GOTO 1690 

1620 IF PEEK( (X-1)*2+(Y-2)*80)=219 THEN 1760 

1630 YzY-1:LOCATE (Y+1),X:PRINT CHR$(32) 

1640 IF Y<=0 THEN 1760 

1650 GOTO 1690 
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1660 IF PEEK((X-1)*24Y*80)-219 THEN 1760 

1670 Y=Y+1:LOCATE (Y-1),X:PRINT CHR$(32) 

1680 IF Y>=20 THEN 1760 

1690 COLOR 11:LOCATE Y,X:PRINT CHR$(2):COLOR 14 

1700 IF 5>7 THEN 1720 

1710 GOTO 1730 

1720 J=J+1:GOTO 1490 

1730 I=I+1 

1740 IF I»H THEN HH=1:GOTO 1760 

1750 GOTO 1480 

1760 GOSUB 1170:IF ABS(X-R)<=1 THEN 2060 

1765 IF НН-1 THEN HH=0:GOTO 1900 

1770 PRINT "SORRY...YOU HAVE ATTEMPTED" 

1780 GOSUB 1190:GOSUB 1170 

1790 PRINT "A SHORT-CUT THAT DIDN'T WORK." 

1800 REM another play? 

1810 GOSUB 1190 

1820 GOTO 1950 

1830 GOSUB 1190:GOSUB 1170 

1840 PRINT "READY TO TRY AGAIN (Y/N)'; 

1850 INPUT W$ 

1860 IF W$="Y"THEN 1880 

1870 GOTO 2300 

1880 LOCATE Y,X:PRINT CHR$(32):LOCATE 1,R:PRINT 
CHR$(32) 

1890 GOTO 1970 

1900 GOSUB 1170 

1910 PRINT "THAT WASN'T ENOUGH TO GET " 

1920 GOSUB 1190:GOSUB 1170 

1930 PRINT "YOU TO THE STOP ZONE, ":A$(L) 

1940 GOTO 1800 

1950 REM player advance 

1960 IF L>=A THEN 2020 ELSE L=L+1 

1970 GOSUB 1170 

1980 PRINT A$(L):" WTLL NOW ATTEMPT THE" 

1990 GOSUB 1190:GOSUB 1170 

2000 PRINT "VENTURE FROM POINT A TO B." 

2005 LOCATE Y,X:PRINT CHR$(32):LOCATE 1,R:GOSUB 560 

2010 GOSUB 600:GOSUB 750:М-35:М1-38 

2015 GOSUB 1190:GOTO 880 

2020 REM start over 

2030 L=1:GOSUB 1170 

2040 PRINT "ALL HAVE PLAYED..." 

2050 GOSUB 2160:MX=0:GOTO 1830 

2060 IF ABS(Y-1)»-1 THEN 1900 

2070 GOSUB 1190:GOSUB 1170:REM complete 

2080 PRINT "VERY WELL DONE, ";A$(L);"!!" 
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2090 GOSUB 1190:GOSUB 1170 

2100 PRINT "YOU HAVE MADE A COMPLETE " 
2110 GOSUB 1190:GOSUB 1170 

2120 PRINT "PASSAGE TO POINT B..." 


2130 GOSUB 
2140 M(L)- 
2150 GOTO 


1190 
1:МХ=1 
1950 


2160 REM players made to point b 

2170 IF МХ=0 THEN RETURN 

2180 GOSUB 1190:GOSUB 1170 

2190 PRINT "THE FOLLOWING HAVE EASILY MADE" 
2200 GOSUB 1190:GOSUB 1170 

2210 PRINT "IT TO POINT B...." 

2220 GOSUB 1190:GOSUB 1170 


2230 FOR U-1 TO A 


2240 IF M(U)-1 THEN 2260 
2250 NEXT:RETURN 
2260 PRINT A$(U);"..... И 
2270 GOSUB 1190:GOSUB 1170 
2280 M(U)=0:GOTO 2250 

2290 REM end 
2300 GOSUB 1190:GOSUB 1170 

2310 PRINT "POINT A TO POINT B" 
2320 GOSUB 1190:GOSUB 1170 
2330 PRINT "TERMINATED...." 
2340 GOSUB 1190:GOSUB 1170 


2350 END 


2360 DATA "MB T200 L1 O3 E D" 
2365 DATA "МВ T250 18 C 02 BO3CDCO2GEF G A 


GEL 


2370 DATA "MB MS 18 03 CD L4 E E L8 E D C D L4 Ë 


4 C" 


2380 DATA "MB L8 03 ED L8 C 02 BOS3CDCO2GEF 


САСЕ14 С 


" 


2390 DATA "MB MS L8 03 C D 14 E G L8 G E C D L4 E D 


2! 
2400 DATA 


L8 E L2 G 


2410 DATA 

L8 F 
2420 DATA 

E D" 
2425 DATA 

D c" 
2430 DATA 
2440 DATA 
2450 DATA 
2460 DATA 


"MB MS 


" 
"MB MS 


L2 А" 
"MB MS 


"MB MS 


"MB MS 
"MB MS 
"MB MS 
"MB MS 


03 L8 E L4 G L8 E L4 G G L8 E LA G 


03 L8 F L4 A L8 F LAAA L8 F LA A 


112 03 САВ 04 14 C C O3 G GE 
L8 C D L& E L8 G A G E C D L4 Ë 


P4 03 L4 C 02 L9 G G- G L4 G+ G" 
P4 01 G 02 В 03 C" 
Рд 05 14 C 04 L9 G G- G L4 G+ G" 
P4 01 С 04 B 05 C" 
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Intercept for the ІВМ PC 


1 
3 


REM program title: INTERCEPT 


CLEAR 


V$=RIGHT$(TIME$, 2): 


200 
'use PC clock to seed random 


number generator 
V=VAL(V$) 

RANDOMIZE V 
CLS:WIDTH 40:KEY OFF 


BEEP: 


PRINT 


PRINT TAB(15)"[[ INTERCEPT ]]" 


BEEP:INPUT "INSTRUCTIONS ";Q$ 


IF 0%- 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT 
GOSUB 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"N" OR Q$="NO" THEN 520 

"YOU ARE THE LEADER OF A SPECIAL" 

"GROUP KNOWN AS [[ INTERCEPT ]]." 

"YOU WILL HAVE TO IDENTIFY AND 

"POSSIBLY DESTROY ANY ALIENS WHO" 
"VENTURE INTO THE STERILIZED DOME" 

"WHERE ALL OF YOUR INHABITANTS LIVE." 
"THE APPROACH TO THE DOME CONSISTS OF" 
"CROSSROADS. NEAR THE EDGE OF THE SCREEN" 
"ARE TWO LASER CANNONS. THESE CANNONS" 
"WILL FIRE ONLY WHEN YOU HAVE ENTERED" 


x^ 


erm гл 
COR Y SEQUENCE: 


аіш ААА А 


Е 
2300:GOSUB 2330 


Tirar TE 


"PRESS ENTER TO CONTINUE" ,Q$:CLS 
"THEN LEFT ARROW TO PRIME, AND UP ARROW" 


"TO FIRE.":PRINT 
"AT RANDOM TIMES, DIFFERENT FIGURES" 


"WILL APPEAR AT THE 


iiio 


"VERTICAL ARM OF THE CROSSROAD. WHEN" 


PRINT 

PRINT "THE FIGURE IS AT THE CENTER, IN LINE" 
PRINT 

PRINT "WITH YOUR LASER, YOU MUST DECIDE " 
PRINT 

PRINT "WHETHER IT IS ALIEN OR FRIENDLY. IF" 
PRINT 

PRINT "YOU BELIEVE THAT IT IS THE LATTER OF" 
PRINT 

PRINT "THE TWO, DO NOTHING--JUST LET IT PASS.: 
PRINT 

PRINT "IF YOU BELIEVE IT IS THE ALIEN, FIRE ": 
GOSUB 2310:GOSUB 2350 

PRINT:PRINT 

INPUT "PRESS ENTER TO CONTINUE:";OQ$ 

CLS:PRINT "THE LASER BY PRESSING THE UP ARROW 
KEY." 

PRINT 

PRINT "REMEMBER, THE LASER CANNOT BE FIRED " 
PRINT 

PRINT "UNTILL YOU HAVE FIRST PRIMED IT BY " 
PRINT 

PRINT "PRESSING THE RIGHT, THEN LEFT ARROW KEYS. 
":GOSUB 2310 

PRINT 

PRINT "YOUR COMMISSION WILL LAST 10 DAYS. IF" 
PRINT 

PRINT "YOU DESTROY TEN FRIENDLY INTRUDERS " 
PRINT 

PRINT "BEFORE THAT TIME, YOUR COMMISSION" 
PRINT 

PRINT "WILL BE TERMINATED IMMEDIATELY." 
PRINT:PRINT 

INPUT "PRESS ENTER TO CONTINUE:",X$ 

CLS:PRINT "THE FINAL OBJECT: 

PRINT 

PRINT "TO DESTROY AS MANY ALIEN INTRUDERS" 
PRINT 

PRINT "AS YOU CAN BEFORE YOUR COMMISSION " 
PRINT 

PRINT "EXPIRES." 

PRINT 

PRINT 

PRINT 

IF Q$="N" OR Q$="NO" THEN GOSUB 2300 

GOSUB 2350:INPUT "YOUR LAST NAME, PLEASE:",P$ 
CLS:COLOR 15,0,7 
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990 


REM intercept crossroads 

X$=STRING$( 16,219) 

AC=3: AR=4: J=1 

LOCATE AR,AC:PRINT X$:LOCATE AR+5,AC:PRINT X$ 
LOCATE AR,AC+20:PRINT X$:LOCATE AR+5,AC+20: PRINT 


X$ 

AR=AR+1:J=J+1 

IF J>=5 THEN 630 

GOTO 580 

AARZ8:AACZ37:ASZCHR$(219) 4CHR$( 16) 
AA$=CHR$(17)+CHR$(219) 

COLOR 11:LOCATE AR,AC:PRINT A$:LOCATE AAR,AAC: 
PRINT AA$ 

LOCATE 16,5:PRINT "LEADER: ";Р$ 

LOCATE 17,5:PRINT "PRESENT CONDITION:" 


) LOCATE 18,5:PRINT "LASER STATUS:" 


LOCATE 19,5:PRINT "DAYS TO GO ON COMMISSION:" 
REM get figures | 
F$(1)=CHR$(1) :F$(2)=CHR$(3) :F$(3)-CHR$(5) :F$(4) 
=CHR$(8) :F$(5)=CHR$(15) 

REM alien 

A$(1)=CHR$(2) :A$(2)=CHR$(4) :4$(3) CHR$(6):A$(4) 
=CHR$(14):A$(5)=CHR$(64) 

REM double size 

FOR I=1 TO 5 

F$(I)=F$(I)+F$(I) 

A$(I)=A$(I)+A$(I) 
NEXT:KRI=AR:KC1=AC+2:KR2=AR:KC2=AC+18 

REM days/alien/friendly 
DA=10:Al=0:FI=0:AD=0:FD=0:DF=0 

C$="QUIET ":ССФ-"А,ЕВТ" 

L$="CHARGING" :LL$="READY  " 

LOCATE 17,24:PRINT C$ 

LOCATE 18,19:PRINT L$; 


O LOCATE 19 эл . TD T NIP? 


DIA d dg WL a L IN L iN L ПА; 
REM start location 
LR=13:LC=20 
REM condition 
FOR T=1 TO 500 
IF INT(T/200)=T/200 THEN SOUND T/40, 3:SOUND 
327067 <3 
I-INT(RND*541) 
N-INT(RND*541) 

IF N=I THEN 1000 
NEXT T 
GOTO 940 


1000 REM alert / intruder 
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1005 IF T<=200 THEN T=T+1:GOTO 1005 

1010 X20:LF-1:XC-0:DSz0: YU=0 

1020 LOCATE 17,24:PRINT STRING$(6,32); 

1030 FOR Т-1 TO 100:NEXT 

1040 LOCATE 17,24:COLOR 28:PRINT CC$: 

1050 FOR TT-1 TO 500:NEXT 

1060 SOUND 1000,3:SOUND 32767,3:Х=Х+1:1Е X<=4 THEN 
1060 

1070 COLOR 12:LOCATE 17,24:PRINT "INTRUDER"; 

1080 R-INT(RND*241) 

1090 IF R=2 THEN 1110 

1100 LOCATE LR,LC:COLOR N:PRINT F$(N);:GOTO 1115 

1110 LOCATE LR,LC:COLOR N:PRINT A$(N); 

1115 YU=YU+1 

1120 IF E20 THEN EE$-INKEYS:IF LEN(EE$)-2 THEN 
E$=MID$(EE$ , 2,1) :E=ASC(E$) 

1125 IF LF=4 THEN 1360 

1130 MM-INT(RND*241) 

1140 IF ММ-1 AND YU<=70 THEN 1180 

1150 IF LR<=1 THEN 1520 

1160 LRZLR-1:LOCATE LR+1,LC:PRINT STRING$(2,32); 

1170 IF LF<=6 GOTO 1200 ELSE 1360 

1180 IF LR>=12 THEN MM=2:GOTO 1150 

1190 LR=LR+1:LOCATE LR-1,LC:PRINT STRING$(2,32); 

1200 IF E-77 AND LF-1 THEN 1240 

1210 IF E=75 AND LF=2 THEN 1250 

1220 IF E=72 AND LF=3 THEN 1260 

1230 GOTO 1270 

1240 LF-2:GOTO 1280 

1250 LF=3:GOTO 1280 

1260 LF=4:GOTO 1280 

1270 E=0:GOTO 1090 

1280 COLOR 3:LOCATE 23,5:PRINT "LASER KEY SEQUENCE:": 

1290 PRINT LF-1:COLOR 15:50UND 300,3 

1300 IF LF-3 THEN 1320 

1310 GOTO 1270 

1320 COLOR 12:LOCATE 18,19:PRINT LL$;:COLOR 15 

1330 GOTO 1270 

1360 REM firing 

1370 IF R=1 THEN 1390 

1380 COLOR N:LOCATE LR,LC:PRINT A$(N);:COLOR 15:GOTO 
1400 

1390 COLOR N:LOCATE LR,LC:PRINT F$(N);:COLOR 15 

1400 COLOR 12:LOCATE AR,AC+2:PRINT STRING$(15, 222); 

1410 LOCATE AAR,AAC-15:PRINT STRING$(15,221); : COLOR 
15 

1415 FOR ТТ-1 TO 30:SOUND 150,1:SOUND 32767,1 
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1417 NEXT 

1420 DEF SEG-&HB800:IF PEEK(600)=32 THEN 1440 

1430 GOTO 1650 

1440 COLOR 11:LOCATE 18,19:PRINT L$:COLOR 15:LF=1 

1450 COLOR 11:LOCATE 23,5:PRINT "INDIRECT HIT 
"COLOR 15 

1460 LOCATE KR1,KC1:PRINT STRING$(16,32) 

1470 LOCATE KR2,KC2:PRINT STRING$(16,32) 

1480 FOR ТТ-1 TO 10:SOUND 450,1:SOUND 32767,1 

1490 NEXT 

1500 GOTO 1090 

1520 REM intruder in dome 

1525 IF YU<=50 THEN 1190 

1530 LOCATE LR,LC:PRINT " "; 

1540 COLOR 12:LOCATE 23,5: PRINT "INTRUDER IS NOW IN 
DOME...":COLOR 15 

1550 FOR TT- 1 TO 15:SOUND 900,1:SOUND 32767,1 

1560 NEXT:LOCATE AR,AC+2:PRINT STRING$(32, 32); 

1565 LOCATE 23,5: PRINT SIRING$(25,32) 

1570 FOR ТТ-1 TO 200:NEXT:SOUND 1750,3 

1575 IF R=1 THEN 1590 

1580 GOTO 1610 

1590 COLOR 3:LOCATE 23,5:PRINT "INTRUDER: 
FRIENDLY.... "%:СО,ОВ 15 

1600 GOTO 1620 

1610 COLOR 11:LOCATE 23,5:PRINT "INTRUDER: ALIEN... 
"COLOR 15 

1620 FOR TTz1 TO 500:NEXT 

1630 IF XC««3 THEN XC=XC+1:GOTO 1565 

1640 GOTO 1670 

1650 COLOR 3:LOCATE 23,5:PRINT "INTRUDER: DESTROYED 
T ":COLOR 15 

1655 FOR TT«1 TO 10:SOUND (TT+10)*10,1:SOUND 32767,1 

1656 NEXT 

1660 DSz1:LOCATE LR,LC:PRINT "  "::GOTO 1550 

1670 REM variable count 

1680 LOCATE 23,5:PRINT STRING$(28,32) 

1690 IF DS=1 THEN 1810 

1700 IF R=1 THEN 1750 

1710 AI=AI+1 

1720 LOCATE 20,5:PRINT "YOU NOW HAVE";AI;"ALIENS IN 
THE DOME." 

1740 GOTO 1790 

1750 FI=FI+1 

1760 LOCATE 21,5:PRINT "YOU HAVE WISELY LET":FT: 
"FRIENDS PASS." 

1790 REM continue if days>=1 
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1800 GOTO 1900 

1810 REM destroyed 

1820 IF R-1 THEN 1870 

1830 AD=AD+1 

1840 LOCATE 21,5:PRINT "YOU HAVE DESTROYED ";AD;" 
ALIENS. ú 

1850 GOTO 1900 

1870 FD=FD+1 

1880 LOCATE 22,5:PRINT FD;" FRIENDS HAVE NOW BEEN 
DESTROYED." 

1890 REM 

1900 REM dx for days decrease 

1910 REM if less than or equal to 75 

1920 DX-INT(RND*10041) 

1930 IF DX<=75 THEN DA=DA-1:DF=DF+1 

1940 FOR ТТ-1 TO 1200:NEXT 

1950 LOCATE 23,5:PRINT STRING$(34, 32) 

1960 IF рА<=0 OR FD>=10 THEN 1980 

1970 FOR ТТ-1 TO 10:SOUND 200,1:SOUND 32767,1 

1975 NEXT:GOTO 860 

1980 IF FD>=10 THEN 2010 

1990 LOCATE 23,5:PRINT "YOUR COMMISSION HAS 
BAPIRED... n 

2000 GOTO 2020 

2010 LOCATE 23,5:PRINT "YOUR COMMISSION 
TERMINATED.... n 

2020 FOR TT=1 TO 2000:NEXT 

2030 CLS 

2040 PRINT "DURING YOUR ";DF;" DAY COMISSION" 

2050 PRINT "YOUR RECORD IS AS FOLLOWS,";P$;":" 

2070 PRINT "ALIENS ALLOWED TO PASS INTO DOME:";AI 

2090 PRINT "ALIENS DESTROYED: ";Ар 

2100 PRINT "FRIENDLY INTRUDERS DESTROYED: ";FD 

2110 PRINT 

2120 IF FD>=10 THEN 2240 

2130 PRINT "YOUR COMMISSION HAS BEEN RATED: " 

2140 IF AD»-1 AND AD<=5 THEN 2170 

2150 IF AD>=5 AND AD<=9 THEN 2190 

2160 IF AD»-10 THEN 2210 

2170 PRINT "IMPROPER: POOR USE OF LASER." 

2180 GOTO 2270 

2190 PRINT "FAIR: LASER USED, BUT INSUFFICIENTLY." 

2200 GOTO 2270 

2210 PRINT "EXCELLENT: ALL JUDGEMENTS MADE" 

2220 PRINT "WITH UTMOST CAUTION." 

2230 GOTO 2270 

2240 PRINT "YOU HAVE DESTROYED ";FD;" FRIENDLY" 


367 


2250 PRINT "INTRUDERS, ";P$;". DO NOT ATTEMPT" 

2260 PRINT "TO REAPPLY FOR THIS COMMISSION." 

2270 PRINT 

2280 PRINT "TERMINATION OF PROGRAM." 

2290 END 

2300 INTERCEPT$="02 MS 112 B- A F ML L4 G" 

2310 PLAY "MB MN O2 L2 С 14 F;XINTERCEPT$;MN L4G C;' 

2320 RETURN 

2330 dni: "МВ XINTERCEPT$;XINTERCEPT$;MS 112 A F A 

2340 RETURN 

2350 PLAY "МВ XINTERCEPT$;XINTERCEPT$;P15 L12 MS 
GGG L 1 03 C;" 

2360 RETURN 
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Insomnia for the IBM PC 


REM program title:INSOMNIA 


CLEAR 200:COLOR 1,11,7:CLS:KEY OFF:WIDTH 40 


PRINT "INSOMNIA" 

PRINT 

PRINT "SO YOU ARE HAVING PROBLEMS" 
PRINT "SLEEPING. JUST SIT BACK, KEEP" 
PRINT "YOUR EYES ON THE VIDEO AND" 
INPUT "PRESS ENTER";X:CLS 
A=20:W=0 

PRINT: PRINT TAB(A)":"; 

PRINT TAB(A-1)":"; ТАВ(А+1)":"; 
I-INT(RND*241) 

IF I-1 THEN 160 

IF А>-39 THEN 170 

A=A+2:GOTO 180 

IF А<-10 THEN 150 

А=А—2 

W=W+1:IF W=15 THEN 350 

TF W=700 THEN 210 

GOTO 100 

IF W<=800 THEN 230 

GOTO 250 

PRINT 

W=W+1:GOTO 210 

PRINT "GETTING SLEEPY NOW????" 

FOR І-1 TO W:NEXT 

IF W<=814 THEN 290 

GOTO 300 

PRINT: W=W+1:GOTO 270 

FOR X=1 TO 40 


LOCATE 1,X:PRINT CHR$(219):LOCATE 23,X:PRINT 


CHR$( 219) :NEXT 
COLOR 9:FOR X=1 TO 23 


) LOCATE X,1:PRINT CHR$(219):LOCATE X,40:PRINT 


CHR$(219) : NEXT 

FOR I-1 TO W:NEXT:W=0:GOTO 400 
LOCATE 16,20 

PRINT "KEEP EYES HERE!" 

GOSUB 600 

GOTO 190 

L=38 :AR=2:AC=2:XR=22: XC=6: Y=AR 
A$=STRING$(L, L*4+27) 

LOCATE AR,AC:PRINT A$; 

LOCATE XR,XC:PRINT A$; 
A$=STRING$(L, 32) 


450 LOCATE AR,AC:PRINT A$ 

460 LOCATE XR,XC:PRINT A$ 

470 AR=AR+1:XR=XR-1:IF AR=12 THEN 530 

480 IF XR=Y THEN 500 

490 GOTO 410 

500 IF W<=50 THEN 520 

510 GOSUB 600:GOTO 610 

520 W=W+1:IF W=25 THEN GOSUB 580 

525 GOTO 400 

530 IF W»1 THEN 480 

540 LOCATE AR,10 

550 PRINT "STARE AT THIS LOCATION"; 

560 GOSUB 600 

570 GOTO 480 

580 A2=AR-6:IF АВ<=0 THEN AR=1 

585 AlzAC425:IF Al>=40 THEN А1-40 

590 PRINT "NOW FOLLOW THE BARS"; 

600 FOR І-1 TO 1000:NEXT:RETURN 

610 CLS 

620 PRINT "IF YOU ARE NOT GETTING SLEEPY" 

630 PRINT "BY NOW, YOU'RE A HOPELESS" 

640 PRINT "CASE!!!" 

650 GOSUB 600:PRINT 

660 PRINT "THIS IS THE LAST PHASE OF" 

670 PRINT "INSOMNIA. IF IT FAILS, RUN" 

680 PRINT "THE ENTIRE PROGRAM ONCE" 

690 PRINT "AGAIN..... ¿ 

700 GOSUB 600:PRINT 

710 PRINT "KEEP YOUR EYES ON THE MOVING" 

720 PRINT "BLOCK, THINKING TO YOURSELF" 

730 PRINT "'I AM GETTING SLEEPY..... " 

740 INPUT "PRESS ENTER ";X:W-0 

750 COLOR 4,2:CLS:P$zSTRING$(2,219) :A$-STRING$(2 32) 
: PC=PC+30 


OND CAD VLA PA A 
760 Ya oO: FOR A— LV 7 


770 LOCATE X,Y:PRINT CHR$(219):NEXT 
780 PR=X:PC=20 

790 GOSUB 1100 

800 FOR X=6 TO 9 

810 LOCATE X,Y:PRINT CHR$(32):NEXT 
820 IF 2-1 THEN 930 

830 FOR X=6 TO 9 

840 LOCATE X,Y:PRINT СНВ%(219):Ү-Ү-1:МЕХТ 
850 GOSUB 1120 

860 PC-PC-6 

870 GOSUB 1100 

880 Ү-20 
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890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 


1070 
1080 


1090 
1100 
1110 
1120 
1130 
1150 
1155 
1160 


FOR X=6 TO 9 

LOCATE X,Y:PRINT CHR$(32):Y=Y-1:NEXT 
GOSUB 1120: 

Z=1:GOTO 760 

GOSUB 1120 

FOR X=6 TO 9 

LOCATE X,Y:PRINT CHR$(219):YzY--1: NEXT 
PC=PC+5:LOCATE PR,PC:PRINT P$ 
Y=20:FOR X=6 TO 9 
LOCATE X,Y:PRINT CHR$(32) 

YzY-1:NEXT 

GOSUB 1120 

W=W+1 

IF W=5 THEN 1050 

TF W=50 THEN 1150 

Z=0:GOTO 760 

FOR X=12 TO 27 

LOCATE 6,X:PRINT CHR$(219):LOCATE 11,X:PRINT 
CHR$( 219) :NEXT 

FOR X«6 TO 11 


LOCATE X,12:PRINT CHR$(219):LOCATE X,27:PRINT 


CHR$(219):NEXT 

GOTO 1030 

LOCATE PR,PC:PRINT P$; 
RETURN 

LOCATE PR,PC:PRINT A$; 
RETURN 

REM end of program 
LOCATE 6,20:PRINT P$ 
GOTO 1160 
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Lap-the-Track for the IBM PC 


ui Ww 


100 
110 


120 
130 


140 
150 


160 
170 


180 
190 


CLEAR 200:CLS:KEY OFF:WIDTH 80 
V$=RIGHT$(TIME$,2): ‘use PC clock to seed random 
number generator 


V=VAL(V$) 

RANDOMIZE V 

PRINT TAB(25) "-:-: LAP-THE-TRACK :-;-" 
PRINT :DIM A$(15),A(15) ,LA(15) ,T( 15) 


INPUT "INSTRUCTIONS": A$ 

IF A$«»"Y" AND A$«»" YES"! THEN 300 

PRINT "UP TO FIFTEEN PEOPLE BET ON FOUR MOVING 
SPOTS THAT ARE IN A FAST RACE" 

PRINT 

PRINT "TO THE FINISH. A COMPLETE RACE CONSISTS 
OF TEN LAPS. EACH PLAYER" 

PRINT 

PRINT "WILL BE ABLE TO CHOOSE A LANE (1-4) AND 
MAKE А ВЕТ OF ANY DESIRED " 

PRINT 

PRINT "AMOUNT ON THAT LANE. IF THERE ARE NO 
WINNERS, THE COMPUTER WILL" 

PRINT 

PRINT "PLACE THE MONEY ON A LANE OF ITS CHOICE 
IN THE NEXT RACE. IF THE" 

PRINT 

PRINT "COMPUTER'S SPOT HAPPENS TO WIN, IT WILL 
NOT TAKE THE MONEY, IT WILL" 

PRINT 

PRINT "JUST ВЕТ ON ANOTHER LANE. 50, NO MATTER 
HOW YOU SLICE IT, SOMEONE" 

PRINT 

PRINT "IS BOUND TO WIN. (YOU CAN USE REAL 
MONEY IN THIS GAME IF YOU WANT TO.)" 


) PRIN 


E 
INPUT "HOW MANY WILL PLAY";A 

IF А<1 OR A»15 THEN 320 

PRINT "INITIALS, PLEASE"; 

FOR I=1 TO A 

INPUT A$(I):NEXT 

PRINT 

PRINT "YOU WILL NOW SELECT A LANE." 
Т-1 

PRINT A$(I):": LANE NUMBER": 
INPUT LA(I) 

IF LA(I)<1 OR LA(I)>4 THEN 390 


420 PRINT "BET WHAT AMOUNT?"; 

430 INPUT A(I) 

440 I-I-l 

450 IF I>A THEN 480 

460 PRINT 

470 GOTO 390 

480 CLS:GOSUB 1300:IF ZZ-1 THEN 530 

490 PRINT "IF MORE THAN ONE PLAYER WINS (SELECTION 
OF SAME LANE), ALL MONEY" 

500 PRINT "WILL BE DIVIDED AS EQUALLY AS POSSIBLE." 

530 PRINT:IF CB=1 THEN 960 

540 PRINT "PRESS ENTER TO START THE RACE:" 

550 INPUT A$:COLOR 14,6,10:CLS 

560 REM outer track 

570 S$-STRING$(80,219):LOCATE 1,1:PRINT S$:LOCATE 
6,1:PRINT S$ 

580 LOCATE 11,1:PRINT S$:LOCATE 16,1:PRINT S$ 

590 FOR X=2 TO 5:LOCATE X,1:PRINT CHR$(219):LOCATE 
X,80:PRINT CHR$(219) 

600 NEXT 

610 FOR Х-12 TO 15:LOCATE X,1:PRINT CHR$(219): 
LOCATE X,80:PRINT CHR$(219) 

620 NEXT 

630 REM spot locations 

640 GOSUB 1200:GOSUB 1410:Lz1:IRz7:1C«1 

650 LR(L)=IR:LC(L)=IC:RR(L)=IR:RC(L)=IC: PR(L)= 
TR-5:PC(L)=IC+30: LP(L)=0 

660 IR-IR41:IF L>=4 THEN 680 

670 L=L+1:GOTO 650 

680 FOR I«1 TO 4 

690 COLOR I:LOCATE LR(IÍ),LC(I):PRINT CHR$(254):NEXT 

700 REM start race 

705 PLAY "MF MS 03 19 СЕ A 04 L8 C L16 CC L8 C ОЗ 
L8 А116 AALS A F AF LA C" 

710 LP=0:X$=CHR$(219):PK=LR(1)+1 

720 I-INT(RND*441) :M-ABS( 1-5) 

730 IF LC(I)>80 THEN 1000 ELSE LOCATE LR(I), 
LC(I):PRINT " ": 

740 IF ABS(LC(I)-RC(1))»-60 THEN 1000 

750 LC(I)ELCCD) HINT(RND*154-1):IF LC(I)»480 THEN 
GOTO 1000 

760 COLOR I:LOCATE LR(I),LC(I):PRINT X$:SOUND I*50,1 

770 IF M+1<>I AND M+1<>5 THEN 790 

780 GOTO 820 

790 IF LC(M+1)>80 THEN LC(M+1)=80 

795 LOCATE LR(M+1),LC(M+1):PRINT " " 
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800 


810 


LC(M+1)=LC(M+1 )+INT(RND*44+1) : IF LC(M+1)>=80 
THEN GOTO 1000 

COLOR (M+1):LOCATE LR(M+1) ,LC(M+1):PRINT 
X$:SOUND (M+1)*50, 1 

IF М-1<>І AND M-1<>0 THEN 840 

GOTO 870 

IF LC(M-1)>80 THEN LC(M-1)=80 

LOCATE LR(M-1),LC(M-1):PRINT " "; 
LC(M-1)2LC(M-1)4*INT(RND*441):1IF LC(M-1)>=80 
THEN GOTO 1000 


COLOR (M-1):LOCATE LR(M-1),LC(M-1):PRINT X$;: 


SOUND(M-1)*50, 1 

IF M+2<>5 AND M+2<>6 THEN 890 
GOTO 720 

IF LC(M+2)>80 THEN LC(M+2)=80 
LOCATE LR(M42),LC(M42):PRINT " " 
LC(M*-2)-LC(M42)--INT(RND*441) : IF LC(M+2)>=80 
THEN GOTO 1000 


) COLOR (M-2):LOCATE LR(M42),LC(M42):PRINT X35: 


SOUND(M+2)**50, 1 

IF LC(M)>80 THEN LC(M)=80 

LOCATE LR(M),LC(M):PRINT " " 
LC(M)=LC(M)-+INT(RND*44+1):IF LC(M)>=80 THEN 
GOTO 1000 

COLOR M:LOCATE LR(M),LC(M):PRINT X$;:SOUND 
M*50,1 

GOTO 720 


CB=0:COLOR 14:LOCATE 18,1:PRINT "THE COMPUTER 


WILL PLACE THE AMOUNT OF ";USING AA$;AM 
RF=INT(RND*4+1 ) 


RF=INT(RND*4+1):PRINT:PRINT "ON LANE ";RF;"." 


MN CRF )=MN(RF)+AM: АМ=0 
GOTO 540 
IF LC(I)>80 THEN LC(I)-80 


S LOCATE ТРТУ TC(TYSPRTNT VM. 
-— 44 SP Sea) d, de athe Анд -....-./, ge тод bhm ? 


LC(I)sSRC(I) 

LP(I)=LP(I)+1:LOCATE PR(I),PC(I):COLOR 14: 
PRINT ІР(І); 

IF LP(I)>=10 THEN 1500 

GOTO 720 

COLOR 14:LOCATE 2,2:PRINT "LAPS - LANE 1:"; 
LOCATE 3,2:PRINT "LAPS - LANE 2:"; 

LOCATE 4,2:PRINT "LAPS - LANE 3:"; 
LOCATE 5,2:PRINT "LAPS - LANE 4:"; 


REM amounts bot per ta 


MV RA e CL с 


LOCATE 12,2: PRINT "LANE 1..... M 
LOCATE 13, 2:2 PRINT "LANE ъз n 


1270 LOCATE 14,2:PRINT "LANE 3..... s 

1280 LOCATE 15,2:PRINT "LANE 4..... "a 

1290 RETURN 

1300 REM amounts on lanes 

1310 T=1 

1320 FOR I=1 TO À 

1330 IF LA(T)=T THEN 1350 

1340 NEXT:GOTO 1370 

1350 MN(T)=MN(T)+A(T) 

1360 GOTO 1340 

1370 Т-Т%1 

1380 IF T>=5 THEN 1400 

1390 GOTO 1320 

1400 RETURN 

1410 REM print amounts 

1420 AA$="$$# ,### HEU 

1430 I=1:FRl=12:FCl=13 

1440 COLOR 14:LOCATE FR1,FC1:PRINT USING AA$;MN(I) 

1450 I=I+1:FR1=FR1+1 

1460 IF I>=5 THEN RETURN 

1470 GOTO 1440 

1500 REM finish 

1510 WW=1 

1520 COLOR 30:LOCATE PR(I),PC(I)410:PRINT "WINNER" 
;:FOR Т=1 TO 3:SOUND 1000,1:SOUND 800,1:NEXT 

1530 FOR TU=1 TO 1000 

1540 NEXT:COLOR 14 

1560 IF WW>=6 THEN 1580 

1570 WW=WW+1:GOTO 1520 

1580 REM player lane select 

1590 WW=0 

1600 FOR T=1 TO A 

1610 IF LA(T)«I THEN 1630 

1620 NEXT:GOTO 1650 

1630 WW=WW+1:TCWW)=T 

1640 GOTO 1620 

1650 FOR I=] TO 4:AM=AM4+MN(T) :MN(I)=0 

1660 NEXT:IF WW=0 THEN 1760 

1670 COLOR 14:LOCATE 12,30:PRINT "WINNER(S):"; 

1680 WXR=13:WXC=30 

1690 FOR І-1 TO WW 

1700 LOCATE WXR,WXC:PRINT АФ(Т(І)): 

1710 IF WW»1 THEN PRINT ","; 

1720 WXC=WXC+5 : NEXT 

1725 IF WW=1 THEN 1790 

1730 LOCATE 14,30:PRINT "EACH WINNER RECEIVES:"; 

1740 LOCATE 15,30:PRINT USING AA$;AM/WW; 
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1750 AM=0:GOTO 1820 

1760 LOCATE PR(1),PC(1)+13: 

1770 PRINT "ж% NO WINNERS 298% ". 
1780 GOTO 1870 

1790 LOCATE 14,30:PRINT,: 

1800 PRINT "YOU WILL RECEIVE: 

1810 GOTO 1740 

1820 REM another 

1830 LOCATE 7,1:PRINT,; 

1840 INPUT "ANOTHER RACE (Y/N)";A$ 
1850 IF A$-'"N" THEN 2000 

1860 COLOR 7,0,0:CLS:ZZ=1:GOTO 360 
1870 FOR TU-1 TO 1200:NEXT 

1880 COLOR 14:LOCATE 19,1 

1890 PRINT "IF ANOTHER RACE IS HELD, THE"; 
1910 PRINT "COMPUTER WILL BET THE MONEY'; 
1930 PRINT "ON A LANE IT SELECTS."; 
1940 CB=1:GOTO 1820 

2000 REM end 

2010 CLS 

2020 PRINT "FAREWELL 'TIL NEXT RACE." 
2030 END 
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Be Prepared for the IBM PC 


REM program title: BE PREPARED (PART I) 


V$=RIGHT$(TIME$, 2): 


"use PC clock to seed 


random number generator 
V=VAL(V$) 
RANDOMIZE V 


WIDTH 
COLOR 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


40:KEY OFF 
154,11, I0: CDS 
"BE PREPARED PART I) 


"IF YOU HAVEN'T DONE SO, READ AND" 
"FOLLOW ALL INSTRUCTIONS FOR PLAY." 
"YOU MUST UNDERSTAND EVERYTHING." 


"INSTRUCTIONS"; 09% 


IF MID$(Q$,2,1)<>"E" THEN 400 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"THIS GAME TAKES PLACE IN A" 

" DISTANT OUTER SPACE" 

"LOCATION. YOU WILL SEE FOUR" 
"TUBES WITH THE TOP CLOSED AND" 
"THE BOTTOM OPEN FOR ENTRY. THESE" 
"ARE THE PORTS. YOUR VESSEL," 
"REPRESENTED BY AN ASTERISK, WILL" 
"BE LOCATED BELOW THE TUBES. IT" 
"WILL MOVE CONTINUOUSLY FROM LEFT" 
"TO RIGHT. ONE OF THE NUMERAL " 
"KEYS 1 AND 2 WILL PROPEL YOUR" 
"CRAFT INTO A TUBE, BUT YOU MUST" 


"PRESS ENTER TO CONTINUE:", X$ 


"GUESS WHICH KEY WILL DO THE JOB." 
"ONLY ONE KEY WILL WORK EACH TURN" 
"AND THE COMPUTER WILL INCREASE" 
"THE NUMBER OF KEYS YOU MUST " 
"CHOOSE BETWEEN EACH CYCLE (І.Е.," 
"I TO Sa THEN TL TO 2; EIC.) 

"YOU HAVE TWENTY VESSELS TO BRING" 
"SAFELY TO PORT. EACH VESSEL" 
"HAS A LIMITED AMOUNT OF FUEL." 
"IF YOU UNDERSTAND ALL INSTRUC-" 
"TIONS, PRESS ENTER TO PORT" 

"THE FIRST VESSEL:"; 


` X$ 
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410 REM vessels/begin value 

420 V=20:DS=0: DK=0: VL=2 

430 REM tubes 

440 X=3:Y=13 

450 FOR T=Y TO 1 STEP -1 

460 LOCATE T,X:PRINT CHR$(219):LOCATE T,(X+5): 
PRINT CHR$( 219) :NEXT 

470 FOR T=X TO X+5 

480 LOCATE 1,T:NEXT 

490 REM do four 

500 X=X+10 

510 IF X>=43 THEN 530 

520 GOTO 450 

530 REM bottom of ports 

540 W=1:X=3 

550 FOR T=W TO X 

560 LOCATE Y,T:PRINT CHR$(219):NEXT:IF P=1 THEN 600 

570 W=X+6:X=X+10 

580 IF W>=39 THEN X-40:P-1 

590 GOTO 550 

600 REM fuel 

610 F=200 

620 F$="FUEL REMAINING 

630 XR=16:XC=10 

640 FOR I=1 TO LEN(F$) 

650 LOCATE XR,XC:PRINT MID$(F$,1,1); 

660 XC=XC+1:GOSUB 1500 

670 МЕХТ:ІЕ С=1 THEN RETURN 

680 QC=XC:QR=XR 

690 LOCATE QR,QC:PRINT F 

700 REM start locale 

710 LR215:LC21:V$5 *" 2Х-2550:РК-1 

720 M=LC+39:P=INT(RND*VL+1) : R«0 

730 LOCATE LR,LC:PRINT V$; 

740 REM by inkey$ 

750 Х%-ІМКЕУ% 

760 IF VAL(X$)=P THEN 900 

770 FOR T«1 TO 5:NEXT 

780 LOCATE LR,LC:PRINT " ''; 

790 IF R=1 THEN 810 

800 LC=LC+1:GOTO 840 

810 LC=LC-1 

820 IF LC««M THEN 720 

830 GOTO 850 

840 IF LC>=M THEN MzLC-39:R«1:VLzVL41 

850 FZF-1:1F VL>=9 THEN VL=9 

860 IF F<=0 THEN 1200 


-— 
== 


870 LOCATE OR,QC:PRINT F;:LOCATE QR,QC+5:PRINT 
TONS"; 

880 IF INT(F/10)=F/10 THEN 1540 

890 GOTO 730 

900 REM port? 

910 J=1:ZX=500: PK=0 

920 LOCATE LR,LC:PRINT " "; 

930 LR=LR-1:IF LR<=1 THEN 1000 

940 LOCATE LR,LC:PRINT V$; 

950 J=J+1:GOTO 1540 

960 DEF SEG=&HB800: IF PEEK((LR-2)*8042*(LC-1)) 
<>32 THEN 990 

970 GOTO 920 

990 IF J<=2 THEN 1030 

1000 F$=" VESSEL DOCKED SAFELY " 

1010 G=1:GOSUB 630 

1020 DK=DK+1:GOTO 1070 

1030 F$="V ES SEL DESTROYED" 

1040 FOR Т-1 TO 500:NEXT:LOCATE LR,LC:PRINT " ", 

1050 G=1:XR=20:XC=5:GOSUB 640 

1060 DS=DS+1 

1070 GOSUB 1600 

1080 F$zSTRING$(32,32):XRz20: XC«5 

1090 GOSUB 640 

1100 V=V-1:G=0 

1110 IF V««O THEN 1300 

1120 VL=VL+1 

1130 IF VL>=9 THEN VL=9 

1140 GOTO 600 

1200 REM fuel exhausted? 

1210 F$="F UEL EXHAUSTED" 

1220 6-1:ХЕ-20:ХС-5 

1230 GOSUB 640 

1240 FOR T«1 TO 500:NEXT 

1250 GOTO 1030 

1300 REM all vessels in 

1310 G=1:XX=1 

1320 F$="A LL VESSELS ІМ Y 

1330 XR=16:XC=5:GOSUB 640:GOSUB 1600:XR=XX:XC=5:CLS 

1340 F$="YOU HAVE DOCKED" 

1350 GOSUB 640:PRINT DK; :F$="VESSELS" 

1355 XC=XC+4 

1360 GOSUB 640:XR=XX+1:XX=XX+1:XC=5 

1370 F$="YOU HAVE DESTROYED" 

1380 GOSUB 640:PRINT DS;:F$z'VESSELS" 

1385 XC=XC+3 

1390 GOSUB 640:XReXX41:XX-XX-1:XC-5 
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1400 
1410 
1420 
1500 
1510 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
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Еф-"ЕМІ) OF MISSION..." 
GOSUB 640 

END 

REM sound routine 

SOUND 10*( ASCCMID$(F$,1I,1))4+10),1:SOUND 32767,1 
RETURN 

REM more sound 

SOUND ZX,1:SOUND 32767,1 
IF PK=1 THEN 1580 

GOTO 960 

IF Е<-100 THEN ZXzZX-100 
GOTO 890 

REM for message loop 

FOR T«1 TO 1200:NEXT 
RETURN 


The Course for the IBM PC 


10 REM program title:THE COURSE 
20 KEY OFF:COLOR 7,2,3:CLS:WIDTH 40:PRINT ТАВ(10); 
30 PRINT ">>> THE COURSE <<<" 
40 PRINT 
50 INPUT "REQUIRE INSTRUCTIONS": X$ 
60 IF X$z"N" OR X$="NO" THEN 210 
70 PRINT 
80 PRINT "THE COURSE WILL REQUIRE THAT YOU" 
90 PRINT "USE TOP NOTCH REFLEXES TO CONTROL" 
100 PRINT "YOUR VEHICLE TO A DISTANCE OF" 
110 PRINT "10 LAPS. THE COURSE WILL BE BOTH" 
120 PRINT "STRAIGHT AND WINDING. YOU WILL" 
130 PRINT "CONTROL YOUR VEHICLE WITH THE" 
140 PRINT "LEFT AND RIGHT ARROW KEYS." 
150 PRINT "THE SLIGHTEST CONTACT TO THE" 
160 PRINT "EDGE OF THE TRACK WILL CAUSE" 
170 PRINT "AN ACCIDENT, AND A HIT" 
180 PRINT "ADDED TO YOUR SCORE." 
190 PRINT:PRINT:PRINT "STRIKE A KEY..." 
200 X$=INKEY$:IF Хф-"" THEN 200 
210 CLS:T=1:AT=1 
220 INPUT "FIRST NAME OF DRIVER"; D$ 
225 IF D$s"" THEN PRINT:GOTO 220 
230 PRINT D$;" STRIKE A KEY TO BEGIN..." 
240 X$-INKEY$:IF X$="" THEN 240 
245 ТЕ T>=2 THEN CLS:GOTO 260 
250 CLS:DIM CX(26),CY(26) 
260 LOCATE 1,1:PRINT "DRIVER: ":D$;:GOSUB 1000 
265 CC=0:LP=0:LL=0:HI=0:REM the course 
270 CX=1940:CY=CX+18:J=219:C=1 
275 Cl=CX+6:C2=C1+2:REM the vehicle 
280 KYzO:IF СХ<-1 OR Cl<=1 THEN 400 
285 IF СС-1 THEN 420 
290 DEF SEG-&HB800:POKE CX,J:POKE CY,J 
295 CX(C)=CX:CY(C)=CY:REM to blank old course 
300 СХ-СХ-80:СҮ-СҮ-80 
305 С=С+1 
310 DDz2*INT(RND*241) 
315 KY$=INKEY$:IF LEN(KY$)=2 THEN KY=ASC(MID$ 
(KY 2512) 
320 IF DD=2 THEN 340 
330 CX=CX+DD—2:CY=CY+DD~-2:GOTO 360 
340 DD=-DD 
350 CX=CX+DD:CY=CY+DD 
360 REM check for movement of vehicle 
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370 IF KY=75 THEN 500 

380 IF KY«77 THEN 530 

390 GOTO 280 

400 CC=1:LP=LP+1 

405 IF (LP/10)=.6 THEN LL=LL+1:LP=1 

410 LOCATE 2,1:PRINT "LAPS«";LL; 

415 IF LL>=10 THEN 700 ELSE GOTO 270 

420 DEF SEG=&HB800:POKE CX(C),32:POKE CY(C),32 

430 POKE C1,32:POKE C2,32 

440 IF С2<-156 THEN 290 

450 Cl=C1-80:C2=C2-80 

460 POKE C1,204:POKE C2,185:POKE C141,36:POKE 
C241,36 

470 CL=PEEK(C1-2) :CR=PEEK(C2+2) 

480 IF ABS(CL+CR)<>64 THEN 600 

485 GOTO 290 

500 REM vehicle movement (left) 

505 DEF SEG=&HB800:POKE C1,32:POKE C2,32:POKE 
С1+1,39:РОКЕ С2+1,39 

510 Cl=C1-2:C2=C2-2 

520 GOTO 280 

530 REM vehicle movement (right) 

535 DEF SEG-&HB800:POKE C1,32:POKE C2,32:POKE 
C141,39:POKE C241,39 


540 IF C2««84 THEN 280 

550 Cl=C1+2:C2=C2+2 

560 GOTO 280 

600 REM hits to vehicle 

610 HI=HI+1 

620 LOCATE 3,1:PRINT "HITSz";HI; 

630 GOTO 290 

700 REM finish 

710 LOCATE 4,1:PRINT STRING$(40, 32) 
720 IF HI«O THEN 800 

730 PRINT "YOU DIDN'T MAKE THE": LL; "LAPS" 
740 PRINT "WITHOUT ERROR. YOU TOOK A" 
750 PRINT "TOTAL OF":HI;"HITS...." 

760 PRINT "TRY AGAIN, ":D$; 

770 INPUT X$ 

780 IF X$="N" OR X$="NO" THEN 1100 

790 AT=AT+1:PRINT:GOTO 830 

800 PRINT "NOT BAD, NO HITS AT ALL" 
810 PRINT "THINK YOU MIGHT WANT TO" 
820 GOTO 760 

830 T(T)=HT:REM best score í í í 2.2.0 
840 T=1:Z=0 

850 TRON: IF T(I)<=TC(I+1)THEN 8800K 


382 


860 YS-T(I):T(I)-T(I«-1):T(I-1)sYS 
870 Z=1 

880 I=I+1:IF I>=T THEN 900 

890 GOTO 850 

900 IF Z-1 THEN 840 

910 BS=T(1) 

920 T=T+1:IF T>=5 THEN BS=T(1):T=3 
930 PRINT 

940 PRINT:GOTO 230 

1000 REM message 

1010 IF Т<-2 THEN 1040 


1020 LOCATE 1,28:PRINT "BEST SCORE: ";BS; 


1030 LOCATE 2,28:PRINT "ATTEMPTS: "АТ; 
1040 RETURN 

1100 REM end 

1110 CLS 

1120 PRINT "END OF PROGRAM RUN..." 
1130 END 
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Trapped for the IBM PC 


384 


V$=RIGHT$(TIME$,2): 'use PC clock to seed 
random number generator 

V=VAL(V$) 

RANDOMIZE V 

REM program title <TRAPPED> 

CLS:KEY OFF:CLEAR 100:DIM AA(12),PI(12),1$(12) 
:WIDTH 40 

COLOR 1,0:PRINT TAB(15)CHR$(174);:COLOR 20, 
O:PRINT "TRAPPED";:COLOR 1,0:PRINT CHR$(175) 
COLOR 2,0:PRINT:INPUT "LIST INSTRUCTIONS";W$ 
IF W$="Y" OR W$="YES" THEN GOSUB 3500 
CLS:GOSUB 3300:TU=1 

00-1:ММ-О:СЕ-0 
51=440:52=51+50:СС=0:ВК=0:ТР=10000!:ТК=ТР 
REM border graphics 

X=1920:Y=X+78:C=219:U=0 

DEF SEG=&HB800:FOR I=X TO Y STEP 2:РОКЕ І, 
222:POKE (141),2 

POKE 1-1920,222:POKE (1-1919),2:МЕХТ 

FOR 1=2 TO 22 

POKE (1*80),222:POKE ((I*80)41),2:POKE 
(1*80478),222:POKE ((1*80)479),2:NEXT :GOSUB 3450 
COLOR 9,0 ‘rem inner graphics 

ІМ-Х-160 

R=IN+2* INT (RND*39+1) :R1=R:L=2* INTC RND*2+1) 
FOR I=IN TO R STEP 2:POKE I,C 

IF L=1 AND U<=3 THEN POKE I-80,C 

NEXT 

R2=2* INT(RND*7+1) :R3=R2+2* INT(RND*1041):GOTO 500 
FOR I=R1+R2 TO R1+R3 STEP 2 

POKE І,С:МЕХТ 

GOTO 560 

О=0+1 

IF U<>5 THEN 180 

REM graphics from right side 

FOR 2-1 TO INT(RND*10+1) 

FOR І-0 TO 4 

IF R(I)=O THEN 310 

POKE R(I),C:R(I)-R(I)-2 

NEXT I,J 

REM start position 

P=2* INT (RND*84 2479 ) 

IF PEEK(P)<>32 OR PEEK(P+4)<>32 THEN 330 


> IF (PEEK (P+80)+PEEK(P-80) )=438 THEN 330 


CP=P+4:POKE P,220:POKE (P+1),14:POKE CP,223:POKE 
(CP+1),14 
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REM movement of computer piece 
S3=210:S4=880 

IF РЕЕК(Р-80)-32 THEN A=1:GOTO 440 
SOUND S1,3:SOUND 52,3: 

IF РЕЕК(Р+80)=32 THEN A-2:GOTO 440 
IF РЕЕК(Р-4)-32 THEN A-3:GOTO 440 
IF PEEK(P+4)=32 THEN A=4:GOTO 440 
GOTO 810 

POKE P,32:1F PEEK(CP)«32 THEN 1700 


FOR Н-1 TO 100:X$=INKEY$:IF LEN(X$)=2 THEN 900: 


NEXT 
GOTO 1100 
ON A GOTO 460,470,480,490 


Р=Р-80:РОКЕ P,220:POKE P+1,12:MM=0:GOTO 710 
P=P+80:POKE P,220:POKE P+1,12:MM=0:GOTO 400 


Р-Р-4:РОКЕ Р,220:РОКЕ P+1,12:GOTO 760 
P=P+4:POKE Р,220:РОКЕ P+1,12:GOTO 420 
REM within limits (board graphics) 
IF ABS((R1+R3)-IN)>=X THEN 200 

REM gap too small 

IF ABS((R1+R2)-R)<=4 THEN 200 

IF R3<=9 THEN 200 

GOTO 210 

REM poke more to right 

IF ABS(CIN-78)-(R1+R3) )>=10 THEN 600 
X=X-240: IN=X-160:POKE IN,C 

GOTO 240 

R4=2* INTCRND*84+1):IF R4<=6 THEN 600 
R4=R4+R1+R3 

R5=R4+2* INT CRND*10+1 ) 

IF ABS(R5-R4)<=2 THEN 620 

IF ABS(R5-IN)>=62 THEN 680 

FOR I=R4 TO R5 STEP 2:POKE I,C 

IF L=1 AND U<>4 THEN POKE (I-80) ,C 
NEXT 

REM variables (right side graphics) 
FF-IN-76:R(U)-FF:N(U)-ABS(FF-R5) 
GOTO 580 

REM down/up-search left/right 

IF PEEK(P-4)=32 THEN 410 

IF PEEK(P+4)=32 THEN 420 

IF A=1 THEN 390 

GOTO 400 

REM left/right search down/up 

IF PEEK(P-80)-32 THEN 390 

IF PEEK(P+80)=32 THEN 400 

IF А-3 THEN 410 

GOTO 420 
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810 REM trapped(counter) 

815 A(QQ)-A 

820 IF A(QQ)-A(QQ-1) THEN 880 

830 IF MM>=8 THEN 1240 

840 IF MM>=4 THEN S3=S3+10:CR=CR+10 

860 QQ-QQ-1:1F QQ>=3 THEN 00-1 

870 GOTO 390 

880 IF PEEK(P+4)=223 OR PEEK(P-4)-223 THEN ММ=ММ+1 

890 GOTO 830 

900 REM user piece/move per key 

910 FOR Н-1 TO 100:XX$=INKEY$:IF LEN(XX$)-2 THEN 
X$-MID$(XX$,2,1):NEXT 

920 IF А5С(Х%)-80 THEN 970 

930 IF ASC(X$)-72 THEN 990 

940 IF ASC(X$)-77 THEN 1010 

950 IF А5С(Х%)-75 THEN 1030 

960 CC=0:GOTO 450 

970 IF PEEK(CP+80)<>32 THEN 960 

980 POKE CP,32:CP=CP+80:GOTO 1050 

990 IF PEEK(CP-80)<>32 THEN 960 

1000 POKE CP,32:CP=CP-80:GOTO 1050 

1010 IF PEEK(CP+4)<>32 THEN 960 

1020 POKE CP,32:CP=CP+4:GOTO 1050 

1030 IF РЕЕК(СР-4)<>32 THEN 960 

1040 POKE CP,32:CP=CP-4 

1050 POKE CP,223:POKE CP+1,14:TP=TP-1 

1060 SOUND 51,3:500М) 52,3 

1070 REM users moves(counter) 

1080 CC=CC+1:IF CC>=10 THEN CC=0:GOTO 450 

1090 GOTO 900 

1100 REM sound/computer piece 

1110 REM charge rate (diminish by plus) 

1120 SOUND S1,3:SOUND 54,3 

1130 CR=CR+1 

1140 ТЕ CR>=100 THEN GOSUB 1450:GOTO 1180 

1150 ІК CR>=99 THEN 54=54+10 

1170 GOTO 450 

1180 REM recharge computer piece 

1190 РОКЕ P,220:POKE P+1,12:FOR C=1 TO ((S4*.2) 
-100)STEP 50 


1200 SOUND 100*C,3:SOUND (52-100),3 
1210 МЕХТ:СЕ-0:54-880:РОКЕ P,32 
1220 GOSUB 1510:GOSUB 3450:GOTO 450 
1240 REM trapped? 

1250 REM check charge rate first 
1260 IF CR>=925 THEN 1280 

1270 GOTO 1290 
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1280 CR=1000:GOTO 1370 

1290 REM trapped computer piece 

1300 L=0 

1310 POKE P,32:FOR ТТ=1 TO. 100: NEXT 

1320 POKE R,220:POKE К-1,12:ҒОК TI=1 TO 50 

1330 SOUND S1:SOUND 52 

1340 NEXT 

1350 L=L+1:IF L<=2 THEN 1310 

1360 GOTO 1600 

1370 GOSUB 1450:POKE P,32:MM=0 

1380 P=P+6 

1390 GOTO 450 

1450 REM message 

1460 MG=20:M$="RECHARGING" 

1470 FOR I«1 TO LEN(M$) 

1480 POKE MG,ASC(MID$(MS$,I,1)):POKE MG+1,132 

1490 MG=MG+2: NEXT 

1500 POKE MG,32:RETURN 

1510 MG=20 

1520 FOR 1=1 TO LEN(M$) 

1530 POKE MG,222:POKE MG41,2 

1540 MG=MG+2: NEXT 

1550 POKE MG,222:RETURN 

1600 REM message (trapped) 

1610 MG=20 

1620 M$="**TRAPPED*#" 

1630 GOSUB 1470 

1640 GOTO 1910 

1700 REM user "burned" 

1710 MG=20 

1720 M$="* USER BURNED *" 

1730 GOSUB 1470 

1740 REM leave user position as-is 

1750 Lz0:MMzO 

1760 POKE CP,32:FOR ТІ-1 TO 100:NEXT 

1770 POKE CP,223:POKE CP+1,14:FOR TI=1 TO 5 

1780 SOUND S1,3:SOUND (51-180) ,3 

1790 NEXT: IF L««1 THEN L=L+1:GOTO 1760 

1800 BR=BR+1:GOSUB 1510:GOSUB 3450 

1810 IF BR>=6 THEN GOSUB 1830:GOTO 1870 

1820 GOTO 445 

1830 L=0 

1840 FOR 1=1 TO 45 STEP 9 

1850 SOUND S2,3:SOUND (I*100),3 

1860 NEXT:CLS: RETURN 

1870 PRINT 

1880 COLOR 2,0:PRINT:PRINT "YOU'VE BEEN BURNED "; 
BR;" TIMES" 
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PRINT "SUCKER!!!"; :TPzO 

PRINT "YOU'RE OUT OF THE GAME...'";:GOTO 2000 
REM trapped 

GOSUB 1830 


PRINT "YA СОТ ME TRAPPED, TURKEY!!!" 

PRINT "YOUR TOTAL POINTS NOW EQUAL "; 

PRINT TP 

PRINT "YOU MADE A TOTAL OF ";TR-TP;" MOVES" 
PRINT "BEFORE TRAPPING ME..... i 

FOR Н-1 TO 2:SOUND S1,3:SOUND (51%2),3:МЕХТ 
REM player advance 


) PI(TU)-TP 


IF TUN THEN 2100 

TU=TU+1 

PRINT "PRESS ENTER WHEN READY, ";I$(TU); 
INPUT W$:CLS 

GOTO 70 

REM all played 

REM sort numbers/players 

IF №1 THEN 2220 

F=Q:AA=1 

IF РІ(АА)>=РІ(АА+1) THEN 2190 
P=PT(AA):PI(AA)=PI(AA+1) 

PIC AA+1)=P:I$=I$( AA) 

I$(AA)2I$(AAT1) :1$(AA41)-I$ 

Fel 

IF AA<N THEN AA=AA+1:GOTO 2140 

IF Е=1 THEN 2130 

GOTO 2260 

PRINT "YOU'VE PLAYED BY YOURSELF, AGAINST" 
PRINT "THE COMPUTER. YOU WERE BURNED ";BR 
PRINT "TIMES. FINAL TRAPPING SCORE: ";PI(TU) 
GOTO 2330 


Izl 
PRINT "BEST TRAPPER..... "SISCI) 
280 PRINT “TOTAL POINTS=";PI(1) 


2360 
2370 
2380 
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PRINT "FOLLOWING ";I$(I) 

FOR I-2 TO N:PRINT I$(I) 

PRINT " WITH А SCORE OF: "; 

PRINT PI(I) 

FOR ТІ-1 TO 1000:NEXT TI,I:PRINT 

PRINT "END OF PROGRAM RUN...." 

FOR 1=1 TO 100:SOUND $1,3:50UND ((51-50)4 

СТО) 8 

NEXT: PRINT 

PRINT "UNLESS ALL WANT TO PLAY AGAIN???" 
( 


H 
PRINT "IF SO, ENTER «RUN» (THE «F1» KEY)." 


2390 PRINT:FOR TI«1 TO 1500:NEXT 

2400 PRINT "END" 

2410 END 

3300 REM player numbers/names 

3310 PRINT "ENTER THE NUMBER OF PLAYERS:"; 

3320 INPUT N 

3330 IF N<=0 OR N>ell THEN 3310 

3340 PRINT "NOW ENTER THE ";N;" PLAYERS'" 

3350 PRINT "FIRST NAMES" 

3360 FOR I=1 TO N 

3370 INPUT I$(I):NEXT 

3380 PRINT 

3390 PRINT "CURRENT PLAYER'S NAME WILL BE" 

3400 PRINT "PRINTED AT THE BOTTOM OF" 

3410 PRINT "GAME BOARD." 

3420 FOR TI=1 TO 1200:NEXT 

3430 CLS 

3440 RETURN 

3450 REM player 

3460 DEF SEG=&HB800:MG=1920:MF=MG 

3470 FOR I=1 TO LEN(IS(TU)) 

3480 POKE MG,ASC(MID$(IS$(TU),I,1)):POKE MG+1,142: 
MG=MG+2 

3485 NEXT:POKE MG,32:FOR H=1 TO 500:NEXT H 

3490 MG=MF:FOR I=1 TO LEN(I$(TU)):POKE MG+1,14 
:MG=MG+2:NEXT I:POKE МС, 32: RETURN 

3500 REM instructions 

3510 CLS:COLOR 2,0:PRINT "UP TO 10 PLAYERS CAN TRY" 

3520 PRINT "TO OUTWIT THE COMPUTER AND 

3530 PRINT "MANEUVER IT'S PIECE INTO А SITUATION" 

3540 PRINT "WHERE IT WILL BECOME TRAPPED." 

3550 PRINT "THE COMPUTER'S PIECE WILL BE A" 

3560 PRINT "BLOCK LIKE THIS: "::COLOR 12,0:PRINT 
CHR$(220);:COLOR 2,0:PRINT " YOURS" 

3570 PRINT "WILL LOOK LIKE THIS: ";:COLOR 14,0: 
PRINT CHR$(223);:COLOR 2,0 

3580 PRINT "THE COMPUTER WILL MOVE" 

3590 PRINT "ITS PIECE ALL AROUND THE GAME" 

3600 PRINT "BOARD, CHANGING DIRECTION WHEN IT" 

3610 PRINT "SENSES AN OBSTACLE. YOU WILL" 

3620 PRINT "FOLLOW THE COMPUTER'S PIECE OR" 

3630 PRINT "MANEUVER IT TO A SECTION" 

3640 PRINT "OF THE GAME BOARD WHERE IT WILL BE" 

3650 PRINT:PRINT "PRESS ENTER TO CONTINUE"; : INPUT 
W$:CLS 

3660 PRINT "TRAPPED, MEANING THAT IT CAN ONLY MOVE" 

3670 PRINT "LEFT AND RIGHT. THE COMPUTER'S PIECE" 
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PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT: 


"WILL CONTAIN A 'CHARGE'. IF YOU" 
"SIMULTANEOUSLY LAND ON THE SAME SPOT" 
"YOU'LL GET 'BURNED'. " 

"SIX BURNS AND YOU'RE" 

"OUT OF THE GAME. YOU WILL MOVE" 
"YOUR PIECE USING ALL FOUR ARROW" 
"KEYS. WHEN YOU MOVE, THE COMPUTER" 
"WILL BLANK IT'S PIECE. YOU" 

"WILL BE ALLOWED ONLY 10 CON-" 
"SECUTIVE MOVES AT ONE TIME." 

"ANY TIME YOU WISH TO MOVE YOUR" 
"PIECE, HOLD DOWN ANY ARROW KEY" 
"AND PRESS THE «SPACE BAR>." 

INPUT "PRESS ENTER TO CONTINUE" ,W$ 


CLS:PRINT "POINTS WILL BE DETERMINED BY HOW" 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT: 


"MANY MOVES IT TAKES THE USER" 

"TO TRAP THE COMPUTER'S PIECE." 
"REMEMBER, TO TRAP THE COMPUTER'S" 
"PIECE, ONLY ALLOW 1T TO MOVE" 
"LEFT AND RIGHT." 

INPUT "PRESS ENTER TO START" ,W$ 


CLS: RETURN 


Rainy Daze for the IBM PC 


REM program title: RAINY DAZE 


V$=RIGHT$(TIME$,2): 'use PC clock to seed 


random number generator 
V=VAL(V$) 

RANDOMIZE V 

CLS:WIDTH 40:KEY OFF 


INPUT 
INPUT 
PRINT 


IF P>= 


INPUT 


"INSTRUCTIONS"; A$ 

"PLAYERS" ;P:IF P-O THEN 40 
"THE"; P;"PLAYERS' INITIALS:" 
11 THEN 20 ELSE FOR I-1 TO P 
N$(I):NEXT 


IF A$<>"Y" AND A$<>"YES" THEN 340 
REM instructions 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
CLS 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
1=1 


"THIS PROGRAM IS DESIGNED TO" 
"HELP YOU THROUGH YOUR WORST" 
"DAYS, BY MAKING THEM WORSE! !" 
"ACTUALLY, THIS PROGRAM WILL" 
"TEST YOUR ABILITY TO FOLLOW" 
"NUMBERS, SOMETIMES IN SEQUENCE." 
"THE NUMERALS 1 THROUGH 660 WILL" 
"RACE ACROSS AND FILL THE VIDEO." 
"WHEN A NUMERAL APPEARS THAT IS" 
"NOT SUPPOSED TO BE THERE, HOLD" 
"THE «CTRL» KEY FOR A SHORT" 
"TIME UNTIL THAT NUMERAL IS" 
"BLOCKED OUT." 


"ENTER"; X$ 


"POINTS WILL BE GIVEN ON THE BASIS" 
"OF HOW MANY OUT-OF-SEQUENCE NUMERALS" 


"YOU HAVE DETECTED AT THE END OF" 
"THE COUNT, 660." 


"REMEMBER TO KEEP GOOD EYE CONTACT " 


"WITH THE SCREEN...":PRINT 


IF P=] THEN 390 


PRINT 
INPUT 


N$(I);", YOU WILL NOW PLAY:" 
"PRESS ENTER, PLEASE:",X$ 


GOTO 410 
PRINT "WHEN READY, ";N$(P);", PRESS" 
INPUT "THE ENTER KEY:",X$ 


С5:№0:№1=0:ТТ=500:рЕЕ SEG-&HAO:POKE &H17,0 


AR=1:AC=1:AB=AC:M=30:L=2:G=0 
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DEF SEG=&H40:K=PEEK(&H17):GOTO 550 
LOCATE AR,AC:PRINT N; 

FOR T=1 TO TT+TT 

NEXT: AC=AC+5 

IF AC>=M THEN 490 

GOTO 430 
AR=L:AC=AB:L=L+1:TT=TT-15:G=0 

IF L>=24 THEN 520 

GOTO 430 

FOR T=1 TO 1000:NEXT 

CLS 

GOTO 420 

REM change or leave 

IF K=4 THEN NJ=1:GOTO 690 

N=N+1 

N1=N1+1:IF N1«22 THEN 610 
J=INT(RND*2):IF G=1 THEN J=0:N=N1 
IF J=1 THEN N=N+1:G=1 

IF K=O AND ABS(N-N1)«»0 THEN Y=Y+1 
IF NJ=1 THEN NJ=0:GOTO 640 

IF N1>=661 THEN 800 ELSE GOTO 440 
Ni=N1+1 

IF AC-5«z0 THEN LOCATE AR-1,40-AC-5:PRINT 
STRING$(5,143);:GOTO 660 

LOCATE AR,AC-5:PRINT STRING$(5,143); 
REM pause before cont. 

FOR Т-1 TO 200:NEXT:K=0 

GOTO 440 

IF ABS(N=N1)=0 THEN 710 

YzY-1:GOTO 720 

Y=Y+1 

DEF SEG=&%&HB800:A1=PEEK((AR-1)%80+2%(AC—-7)) 
А2-РЕЕК((АВ-1)%80:-2%(АС-9)) 

IF Al=143 AND А2-143 THEN 760 


) GOTO 620 


CLS : Y=Y+2 

PRINT "QUIT HOLDING DOWN THE <CTRL>" 
PRINT "KEY!! LET GO, YOU MANIAC!" 
FOR T=1 TO 1200:NEXT:CLS:GOTO 620 
REM player advance 

YY(I)zY:Ya0:CLS 


І=1+1 

IF ТОР THEN NIzN1-1:GOTO 850 
GOTO 360 

REM final 

PRINT "PLAYERS AND THEIR POINTS" 


PRINT "ARE AS FOLLOWS:" 


880 
890 
900 
910 
920 
930 
940 
950 
960 


FOR 1=1 TO P 
PRINT N$(I);" IDENTIFIED "; 


IF ҮҮ(1)=0 THEN PRINT "ALL NUMERALS.":GOTO 930 


IF YY(I)«O THEN ҮҮ(Т)=-ҮҮ(Т) 
PRINT N1-YY(I);" NUMERALS." 
NEXT 

PRINT 

PRINT "END OF PROGRAM." 

END 
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General Store for the ІВМ PC 


REM program title:general store 

CLEAR 500 

V$=RIGHT$(TIME$,2): 'use PC clock to seed 
random number generator 

V=VAL(V$) 

RANDOMIZE V 

DEF SEG=&HB800:WIDTH 40:CLS:PRINT TAB(10); 
PRINT "GENERAL STORE":R$="NEXT " 

DIM N$(15),1$(31),1(31) 

DIM L(31),PR(31),TP(15):REM instructions 
PRINT "YOUR INSTRUCTIONS ARE SIMPLE AND" 
PRINT "STRAIGHT-FORWARD: I WILL GIVE" 
PRINT "YOU A LIST OF DIFFERENT ITEMS" 

PRINT "AND THEIR PRICES. YOU IN TURN" 
PRINT "WILL ENTER THE TOTAL PRICE OF ALL THE" 
PRINT "ITEMS. THAT IS, IF I SAY $2.50," 
PRINT "MILK, AND THEN SAY $0.80 BREAD" 
PRINT "YOU MUST THEN ENTER THE TOTAL" 

PRINT "OF $2.50 + $0.80 ($3.30). ALL" 
PRINT "OF YOUR ENTRIES WILL BE THROUGH" 
PRINT "THE COMPUTER'S 'INKEY$' FUNCTION." 
PRINT "DON'T PRESS «ENTER» AND DON'T ENTER" 
PRINT "THE DOLLAR SIGN.":PRINT:PRINT "STRIKE 
A KEY TO CONTINUE" 


190 GOSUB 3000:CLS:G$="##,###" 


200 
210 
220 
230 
240 
250 
260 
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PRINT "ENTER ONLY THE NUMBERS AND THE" 

PRINT "DECIMALS. AFTER 10 ITEMS WE WILL" 
PRINT "TAKE A SHORT BREAK, THEN I WILL" 

PRINT "GIVE YOU 10 MORE. WE WILL STOP" 

PRINT "ONLY AFTER 30 ITEMS HAVE BEEN" 

PRINT "TOTALLED. YOUR POINTS WILL BE" 

PRINT "DETERMINED BY THE ACCURACY OF YOUR" 
PRINT "TOTAL, IF CORRECT, THE TOTAL WILL ВЕ" 
PRINT "YOUR POINTS. IF INCORRECT, ALL ENTRIES" 
PRINT "MISSED WILL BE SUBTRACTED FROM YOUR TO-" 
PRINT "TAL. YOU WILL HAVE A TIME LIMIT IN" 
PRINT "WHICH TO ENTER THE TOTAL, SO LAY" 

PRINT "DOWN THE PENCIL AND THE CALCULATOR!" 
REM begin 

PRINT "STRIKE A KEY TO BEGIN" 

GOSUB 3000:CLS 

INPUT "HOW MANY PLAYERS (1-10)";P 

IF P«1 OR P>10 THEN 370 

PRINT "ENTER";P;"PLAYERS' FIRST NAMES:" 


REM names 


AP-220:FOR I-1 TO P 

INPUT N$(I):N(I)-I:NEXT:Nz21:AR23:AC«30 
AQ=AP+80:IF P-1 THEN Y=1:N=2:GOTO 470 
PRINT "I WILL SELECT EACH PLAYER IN" 
PRINT "A RANDOM FASHION. THERE WILL" 
PRINT "BE NO SET ORDER OF PLAYERS." 
GOSUB 2800:PRINT ' player 

IF EE-1 THEN 1530 'final 
Q$=N$(Y):TA=0: JI=0 

PRINT Q$;" WILL NOW PLAY:" 

PRINT "PRESS THE ENTER KEY TO BEGIN"; 
INPUT X$:PRINT 

CLS:PRINT "HOW FAST IS YOUR ADDITION," 
PRINT Q$;"???" 

REM read all items/prices 

FOR I-1 TO 30:READ I$(I):L(1)=I:NEXT 
FOR I=1 TO 30:READ PR(I):NEXT:GOTO 2500 
D=I-1:DD=(D/3) :U-1:D$-" $44 . ##":F$="$" 
REM select items randomly 

IF U»DD THEN PRINT:PRINT:GOTO 1100 
X=INT(RND*30+1) 

IF L(X)=0 THEN 600 ‘used 
T=X:PR=PR(T):T$=I$(T) 

IF U-1 THEN YU=PR 

TA=TA+PR 'total amount/current item 
TA$=STR$(TA) 'total to string 
IF U=1 THEN GOSUB 2900 

IF U-1 THEN CLS ELSE IF U»1 THEN 670 
PRINT TAB(1)"PRICE";TAB(12)" ITEMS"; 
PRINT TAB(30)"PRICES"; 

PRINT TAB(1) USING D$;PR; 

PRINT TAB(12);T$ 

IF U<=1 THEN 710 

RR=1 'continue print/entries 
L(X)=0:U=U+1:KK=0:NE=1 

IF RR<>1 THEN 580 

LOCATE AR,AC:PRINT F$ 

X$=INKEY$:IF КК<-15 AND X$«»"" THEN 1040 
IF X$="." THEN 880 

IF Х%-"" THEN 760 

GOTO 800 

KK=KK+1 'time expired? 

IF KK>=400 THEN W$="":GOTO 1000 

POKE AP,220:GOTO 730 


REM entry 
POKE AP,ASC(X$) : TY(NE) -VAL(X$) 
AP=AP+2 !poke location 
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830 
840 
850 
860 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1005 
1008 
1010 
1020 
1030 
1040 
1050 
1060 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
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NE=NE+1 'number entry 

IF NE-LEN(TA$) THEN 860 

GOTO 730 

GOTO 910 'all entries in 

REM decimal 

РОКЕ АР,А5С(Х%) 
TY(NE)=1000:GOTO 820 

REM compile entries 

V-NE-1:IF V=9 THEN V=10 

FOR І-1 TO V 

ТЕ ТҮ(1)=1000 THEN 970 
W$-W$-STR$CTY(CI)) 

ТҮ(1)=0: МЕХТ:СОТО 990 

W$=W$+"." 

GOTO 960 

W=VAL(W$):W$=STR$(W) 

IF W$<>TA$ THEN PI=PI+PR:JI=JI+1 
IF U=3 AND JI<>O THEN PI=PI+PR:JI=JI+1 
IF PEEK(AP)-220 THEN POKE AP,32 
POKE AP42,32:W$z" ": AR=AR+1 
AP=AQ: AQ=AQ+80 


GOTO 590 ‘another item 
REM slow down a little 
POKE AP, 32 

GOTO 730 


REM points/player advance 

IF PI<>0 THEN 1200 

FOR I=1 TO LEN(TA$) 

IF MID$(TA$,I,1)="." THEN 1150 
K$=K$+MID$(TA$,1I,1) 

NEXT 

K=VAL(K$) 

GOSUB 1430 

TP(Y)=TP(Y)+K 

GOTO 1320 

REM missed items 

TA$=STR$(PI):FOR І-1 TO LEN(TA$) 

IF MID$(TA$,1,1)="." THEN 1240 
К%-К%МІр%(ТА%,1,1) 

NEXT: K=VAL(K$):GOSUB 1430 
TP(Y)sTP(Y)-K 

PRINT "YOU HAVE MISSED TOTALS ON ";JI 
PRINT "ITEMS, ":Q$;". THESE ITEMS САМЕ" 
PRINT "TO A TOTAL OF $";:TA$;". YOU ARE" 
PRINT "MINUS THAT AMOUNT. YOUR SCORE" 
PRINT "IS NOW ";USING G$;TP(Y) 

GOTO 1350 


1320 PRINT "YOU HAVE SUCCESSFULLY ENTERED" 
1330 PRINT "ALL TOTALS, ";0$;". YOUR POINTS" 
1340 PRINT "ARE NOW: ";USING G$;TP(Y) 

1350 K=0:JI=0:PI=0:TA$="":K$="" 

1360 U=1:D1=D1+10:IF D1-20 THEN R$="LAST" 
1370 AP=220:AQ=AP+80: AR=3 : AC=30: RR=0: PRINT 
1380 IF р1>=30 THEN 1500 

1390 PRINT "TAKE A SHORT BREAK, THEN WE'LL" 
1400 PRINT "ATTEMPT THE ";R$;" SET OF ITEMS." 
1410 FOR I«1 TO 5000:NEXT: PRINT 

1420 GOTO 580 

1430 REM amount times 10 

1440 IF MID$(TA$,LEN(TA$)-1,1)="." THEN 1480 
1450 IF LEN(TA$)-2 OR LEN(TA$)-3 THEN 1470 
1460 RETURN 

1470 K=K*100:GOTO 1460 

1480 K=K*10 

1490 GOTO 1460 

1500 REM another player 

1510 PRINT: PRINT: RESTORE 

1520 D1l=0:R$="NEXT":GOTO 460 

1530 REM high point 

1535 IF P«1 THEN TP-TP(1):GOTO 1720 

1540 MM=0:VV=1:N=N--1 

1550 IF TP(VV)>=TP(VV+1) THEN 1590 

1560 TP-TP(VV) : TPC(VV)=TP(VV+1) 

1570 TP(VV+1)=TP :N$=N$(VV) 

1580 N$(VV)=N$( VV+1) : N$(VV--1) zN$ :MM=1 

1590 IF VV+l>=N THEN 1600 ‘final 

1595 VV=VV+1:GOTO 1550 

1600 REM mm=1--not in order 

1610 IF ММ-1 THEN 1540 

1650 REM points compiled(final) 

1700 REM print results 

1710 PRINT "ALL HAVE PLAYED..." 

1720 PRINT "STRIKE A KEY FOR RESULTS ON SCORE" 
1730 GOSUB 3000 

1740 CLS:I=1 

1750 REM single player 

1760 IF Р=1 THEN 1850 

1770 PRINT "THE TOP WINNER: ";М%(1) 

1780 PRINT "WITH A FINAL POINT SCORE OF: "; 
1790 PRINT USING G$;TP(I) 

1800 PRINT "OTHER PLAYERS AND SCORES:" 

1810 FOR X=I+1 TO P 

1820 PRINT N$(X);" HAD: ";USING G$;TP(X) 
1830 NEXT 
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1840 GOTO 1880 

1850 PRINT Q$;" YOUR TOTAL (FINAL) POINTS" 
1860 PRINT "FOR GENERAL STORE: "; 
1870 PRINT USING G$;TP 

1880 PRINT 

1890 PRINT "END OF PROGRAM RUN." 
1900 END 

2500 REM inflation/deflation 

2510 FOR I-1 TO 30 

2520 DE=INT(RND*10+1) : DF=CSNG(DE/10) 
2530 DG-INT(RND*2) 

2540 IF DG=2 THEN 2590 

2550 REM inflation 

2560 PR(I)=PR(1)+DF 

2570 NEXT 

2580 GOTO 570 

2590 REM deflation 

2600 PR(I)ZPR(I)-DF 

2610 IF PR(I)4«0 THEN 2560 

2620 GOTO 2570 

2800 REM random player 

2810 IF N»P THEN EE-1:RETURN 

2820 Q=INTCRND*P+1) 

2830 IF N(Q)=0 THEN 2820 

2840 Y=Q:N(Q)=0 

2850 N=N+1:RETURN 

2900 REM extra message 

2910 PRINT 

2920 PRINT "ADD ALL ITEMS TOGETHER" 
2930 PRINT "BEFORE INPUTTING AMOUNT." 
2940 IF D1»-10 THEN 2970 

2950 FOR TL=1 TO 2800:NEXT 

2960 CLS:RETURN 

2970 PRINT "START WITH PREVIOUS TOTAL." 
2980 GOTO 2950 

3000 REM INKEY$ 

3010 X$=INKEY$ 

3020 IF X$=""THEN 3010 

3030 RETURN 

4000 REM data/price--item combined 
4010 DATA MILK, BREAD, MEAT 

4020 DATA MEAT, MEAT, FISH 

4030 DATA CANDY, CANDY, CANDY 

4040 DATA VEGETABLES , VEGETABLES 
4050 DATA POULTRY,POULTRY 

4060 DATA LETTUCE,ONIONS 

4070 DATA SPINACH,CIGARETTES 

4080 DATA CIGARS,BACON 
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4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 


DATA TABLETS( PAPER) , PENS 
DATA BATTERIES,BATTERIES 
DATA FURNITURE POLISH 
DATA CARPET CLEANER 

DATA HAND SOAP,HAND SOAP 
DATA CRACKERS, MEATS 
DATA SODAS(CASE) 

REM prices of items 

DATA 2.30,0.89,1.9 
DATA. 70,35,2,05,0. 


DATA 1 99,0.59,1 
DATA 4.66,1.23,2 А 
DATA 2.41,0.99,0 
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Rain of Terror for the IBM PC 


10 REM program title: rain of terror 

20 CLEAR 200 
22 V$=RIGHT$(TIME$,2): 'use PC clock to seed 

random number generator 

24 V=VAL(V$) 

26 RANDOMIZE V 
30 PRINT:WIDTH 40:KEY OFF:COLOR 14,3,7 :CLS 

35 DEF SEG=&HB800 
40 PRINT TAB(10) '?" RAIN OF TERROR ***':GOSUB 810 

50 PRINT: X$=STRING$(40, 32) 

60 INPUT "INSTRUCTIONS (Y/N)"3A$ 

70 IF A$="N" OR A$="NO" THEN 190 

80 PRINT "YOU WILL BE BOMBARDED FROM THE" 

90 PRINT "SKY BY FALLING BOMBS. ALL YOU" 
100 PRINT "NEED TO DO TO STAY ALIVE IS TO" 
110 PRINT "USE THE «LEFT» AND «RIGHT ARROW>" 
120 PRINT "KEYS TO KEEP OUT OF THE BOMBS' POINTS" 
130 PRINT "ОЕ CONTACT. ІТ SOUNDS VERY SIMPLE" 
140 PRINT "BUT YOU MUST BE FAST!" 

160 PRINT 

170 PRINT "STRIKE A KEY TO BEGIN" 

180 AA$=INKEY$:IF ААф-""ТНЕМ 180 

190 CLS 

200 REM border/messages 

210 LOCATE 1,1:PRINT STRING$(40, 219) 

220 I$=CHR$(220):GOSUB 510 

230 RzO:REM points 

240 P=160:PP=P+84:U=P+1440:UV=U:UW=U+78:RR=0 

250 РОКЕ P,43:POKE U,32:P=P+4 

260 U=U+4: POKE(U-4) ,32:POKE 0,220 

270 IF P>=PP THEN POKE U,32:GOTO 240 

280 SOUND 440,1:PX-INT(RND* 794160) 

205 LOCATE 23,1:PRINT PPA 

300 IF ABS(P-PX)««8 THEN 320 

310 GOTO 250 

320 REM a drop 

330 PL=P 

335 IF РЕЕК(Р)-220 THEN 550 

340 POKE P,42:P=P+80:FOR I=1 TO 20:NEXT 

350 POKE(P-80),32 

360 IF P>PL+1440 THEN 410 

370 FOR Н=1 TO 10:AA$=INKEY$:IF LEN(AA$)-2 THEN 
A$zMID$(AAS,2,1):K-ASC(A$) : GOTO 

375 ELSE NEXT 

375 IF K=75 THEN K=0:GOTO 420 


IF K=77 THEN K=0:GOTO 470 
R=R+25:RR=RR+25:LOCATE 22,18:PRINT RR:LOCATE 
23,16:PRINT R; 

IF P=U THEN 550 ELSE GOTO 340 

LOCATE 21,1:PRINT X$:P=PL:RR=0:GOTO 250 


) POKE U,32:POKE UX, 32 


U=U-4 

IF U<=UV THEN 480 

POKE U,220 

UX=U :U=PL+1440:GOTO 340 

POKE U,32:POKE UX, 32 

U=U+4 

IF U>=UW THEN U=UW 

GOTO 450 

REM messages 

LOCATE 22,1:PRINT "POINTS BEFORE HIT "; 
LOCATE 23,1:PRINT "TOTAL POINTS "; 
RETURN 

REM bombed 

R-R-RR:LOCATE 23,16:PRINT R:LOCATE 21,1:PRINT X$ 
IF U<=1604 THEN U=U+6 

IF U>=1676 THEN U=U-8 
01=0-80:102=01-2:03=01+2:04=1 

РОКЕ 0,42 

SOUND 1000,3 

POKE U1,42:POKE 02,42 

SOUND 1040,3 

POKE U3,42 

SOUND 1080,3 

FOR T«1 TO 200:NEXT:U4=U4+2 

POKE U,32:FOR V«O TO 18 STEP 2:POKE(U2+V) , 32 
: NEXT 

ТЕ ABS(U-U1)>=328 THEN 670 
U1=U1-80:U2=U1-U4:U3=U1+U4:GOTO 600 
REM gone 

FOR T=1 TO 1000:NEXT 


PRINT "YOU HAVE BEEN DESTROYED BY ONE" 

PRINT "OF THE FALLING BOMBS. YOUR" 

PRINT "TOTAL POINTS ACCRUED BEFORE" 

PRINT "BEING DESTROYED WERE:";R 

PRINT:FOR Т=1 TO 1000:NEXT 

A$-"END OF RAIN OF TERROR." 

FOR І-1 TO LEN(A$) 

PRINT MID$(A$,I,1);:SOUND 220,1:SOUND 32767,1 
NEXT 

END 
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112 A- F A- L4 


810 PLAY "MB O2 L12 FCF L4 A- F 
А- O3 C L 4 E-02 Е- L12 


ОЗ C 02 А- 112 03 C 02 
А- Е- А- O3L2 C" 
820 RETURN 
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Appendix B 


Program Listings for the Apple Il 


The following listings have been created especially for use on the 
Apple II, Apple Ге, and Apple II plus. 
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General Store for the Apple Il 


REM PROGRAM TITLE:GENERAL STORE 


HOME : НТАВ 10 
PRINT "GENERAL STOÜRE":R$ = "NEXT" 

DIM N$(15),IS$(G1), I(31) 

DIM L(31),PR(31),TP(15): REM 
INSTRUCTIONS 

PRINT "YOUR INSTRUCTIONS ARE SIMPLE 
AND" 

PRINT “STRAIGHT-FORWARD: I WILL GIVE" 
PRINT "YOU A LIST OF DIFFERENT ITEMS" 
PRINT "AND THEIR PRICES. YOU IN TURN" 
PRINT "WILL ENTER THE TOTAL PRICE OF 
ALL THE" 

PRINT "ITEMS. THAT 15, IF I SAY $2.50," 
PRINT "MILK, AND THEN SAY $0.80 BREAD" 
PRINT "YOU MUST THEN ENTER THE TOTAL" 
PRINT "OF $2.50 + $29.80 (62.20). DLL" 
PRINT "OF YOUR ENTRIES SHOULD HE 
ENTERED" 

PRINT "WITHOUT DOLLAR SIGNS--JUST PUT" 
PRINT "IN THE DECIMAL IF THE NUMBER 
HAS n" 

PRINT "CENT AMOUNT. ": PRINT : PRINT 


"DRESS RETURN TO CONTINUE: "š 


GOSUB 30th: HOME :6$ = "Ф" 

PRINT "AFTER TEN ITEMS We WILL” 

PRINT "TAKE A SHORT BREAK, THEN I WILL" 
PRINT "GIVE YOU TEN MORE. WE WILL STOP" 
PRINT "ONLY AFTER THIRTY ITEMS HAVE 
BEEN" 

PRINT "TOTALLED. YOUR POINTS WILL BE" 
PRINT "DETERMINED BY THE ACCURACY OF 
YOUR" 

PRINT "TOTAL. ІР CORRECT, THE TOTAL 
WILL БЕ" 

PRINT "YOUR POINTS. IF INCORRECT, ALL” 
PRINT "MISSED WILL BE SUBTRACTED FROM 
YOUR 70-" 

PRINT "TAL. YOU WILL HAVE A TIME 
LIMIT IN" 

PRINT "WHICH TO ENTER THE TOTAL,SO LAY" 
PRINT "DOWN THE PENCIL AND THE 
CALCULATOR! " 

REM BEGIN 

PRINT "PRESS ANY KEY TO BEGIN:" 

GOSUE 300: НОМЕ 


INPUT "HOW MANY PLAYERS (1-1U)0?";P 
IF P 4 1 OR P > ій THEN 37a 
PRINT "ENTER ";P;" PLAYERS' FIRST NAMES:" 
REM NAMES 
Op = 13510: FOR I = 1 TO P 
INPUT N$(I):N(I) = I: NEXT :N = 1:81 


= Jj: = OU! 
nü = AP + i28: IF AG > = 13259 THEN 
pQ = 1024 


IF Р = і THEN Y = 1:N = 2: БОТО 470 
PRINT "I WILL SELECT EACH PLAYER IN" 
PRINT "à RANDOM FASHION. THERE WILL" 
PRINT "НЕ NO SET ORDER OF PLAYERS." 
GOSGUB #822: PRINT : REM PLAYER 
IF EE = i THEN 1530: REM FINAL 
ОФ = NS(Y):TA = @:JI = Q 
PRINT G$;" WILL NOW PLAY:" 
PRINT "PRESS THE RETURN KEY TO BEGIN"; 
INPUT X$: PRINT 
HOME : PRINT "HOW FAST IS YOUR 
ADDITION, " 
PRINT 0$;"2?22" 
REM READ ALL ITEMS/PRICES 
FOR I = і TO 30: READ I$(I):L (I) = I: 


NEXT 

FOR I = 1 TO 348: READ PR(I): NEXT : 
GOTO шй 
D = I — i:DD = (D / 30:0 = 1:D$ = "Ф": 
F$ = "Ф" 


REM SELECT ITEMS RANDOMLY 
ТЕ U > DD THEN PRINT : PRINT : GOTO 
11@@ 
X = INT 4 RND (1) ж Зӣ + 1) 
IF 109 à THEN 600: REM USED 
T = X:BR = PR(OD:T$ = 1%(Т) 
IF U = 1 THEN YU = PR 
та = TA + PR: REM ТОТА. AMOUNT/CURRENT 
ITEM 
ТАФ = STR (ТА): REM TOTAL TO STRING 
IF U і THEN GOSUB 2904 
IF U 1 THEN HOME 
IF u › 1 THEN 672 
HTAR i: PRINT "PRICES":: HTAR 12: 
PRINT "ITEMS": 
IF u > i THEN 670 
HTAR i: PRINT "PRICES";: HTAR le: 
PRINT "ITEMS": 


to H — 


Hd 


405 


pe A. 2", 


HTAB 30: PRINT "PRICES 
НТАВ 1: PRINT D$;PR; 
HTAE 12: PRINT T$ 

IF U ( = 1 THEN 710 


RR = 1: REM CONTINUE PRINT/ENTRIES 


LX) = 0:0 = U + 1:KK = МЕ = 1 
IF RR < >` 1 THEN 58Өй 
VTPR Al: HTAR Ač: PRINT FẸ 


XS = PEEK ( ~ 16384) — 128: IF KK ( 
S AND XS > й THEN POKE ( ~ 16368),0 


GOTO i/40 | 


w 

— 
а 
e 


IF XS = 46 THEN POKE ( - 16368),0: 


Бота ава 
IF XS < = à THEN 768 
POKE ( ~ 16368),@: GOTO 8@й 
KK = KK + 1: REM TIME EXPIRED? 


IF KK > = 850 THEN WH = ""s GOTO i@aa 


POKE AP, 172: GOTO 730 
REM ENTRY 
POKE АР, ХБ + 128:TY(NE) = XS 
AP = Ар + i: REM LOCATION 
NE = NE + i: REM NUMBER ENTRY 
IF NE = LEN (TAS) THEN 864 
GOTO 73a 
GOTO 910: REM ALL ENTRIES IN 
REM DECIMAL 
POKE AP, XS + 128 
TY(NE) = 1@@@: GOTO ага 
REM COMPILE ENTRIES 
V = NE ~ i: IF V = 9 THEN V = 10 
FOR I = 1 TO V 
IF ТҮ(І) = 1000 THEN 970 
W$ = W$ + STR$ (TY(I)) 
ТҮ(І) = ü: NEXT : GOTO ЭЭЙ 
We = WH enn 
GOTO 960 
W = VAL (W$):W4$ = STR$ (W) 


IF W$ ( У TAS THEN BI = BI + pR:JI = 


dI. ЫШ 
IF U = 3 AND JI < > й THEN PI 
PR:JI = JI + 1 


PI + 


IF PEEK (AP) = 1748 THEN POKE AP, 160 
POKE AP + 2,160:W$ = ""sA1 = Al + 1 


AP = AG:AG = AD + 128: IF AD > 
THEN AG = 1094 

GOTO 590: REM ANOTHER ITEM 
REM SLOW DOWN A LITTLE 

POKE AP, 16a 


— 
— 


19553 


1060 
11Q0 
1110 
1120 
1130 
11440 
1150 
1ieu 
1170 
1180 
1130 
іг00 
1218 
icea 
1230 


КФ = 


K 


TPLY) = 


K 


GOTO 73a 
REM POINTS/PLAYER ADVANCE 
IF РІ < > à THEN ірйй 
FOR I = 1 TO LEN (TAS) 
IF MIDS (TA$,I,1) = "." THEN 1150 
Ke + MIDS (TAS, I, 1) 
NEXT 
= VAL (KS) 
GOSUR 1430 
TP(OYO) + F 
GOTO 1320 
REM MISSED ITEMS 


TAS = STR$ (PI): FOR І = i TO LEN (TAS) 
IF MID$ (TA$, 1,1) = "." THEN 1242 

K$ = КФ + MIDS (TAS, I, 1) 

NEXT :M = VAL (K$): GOSUB 1430 

TP(Y) = TB(Y) ~ K 

PRINT "YOU HAVE MISSED TOTALS ON ";JI 
PRINT "ITEMS, ";0$;".THESE ITEMS САМЕ" 
PRINT "TO A TOTAL OF #":TAS;". YOU ARE” 
PRINT "MINUS THAT AMOUNT. YOUR SCORE" 
PRINT "IS NOW ";G$;TP(Y) 


GOTO 1350 
PRINT "YOU HAVE SUCCESSFULLY ENTERED" 
PRINT "ALL TOTALS, ";G$;". YOUR POINTS" 


PRINT "ARE NOW: "5;G$;TP(Y) 
= Q:JI = Q:PI = Q@:TR% = "":КФ = "" 
= 1:D1 = Di + 10: IF Di = Ей THEN R$ 
= "LAST" 

AP = 131@:AG = AP + 128:81 = 3:08 = 
3ü:RR = 0: PRINT 
IF 01 ) = 30 THEN 1500 


PRINT "TAKE ñ SHORT BRERK, THEN WE'LL" 
PRINT "ATTEMPT THE ";R$;" SET OF ITEMS. " 
FOR I = 1 TO 5000: NEXT : PRINT 
GOTO 580 
REM AMOUNT TIMES 18 
IF MIDS (TAS, LEN (TAS) 
THEN 148@ 
IF LEN (TAS) = & OR 
THEN 147@ 
RETURN 
= K ж 1йй: GOTO 1461 
= Қож 1 
GOTO 1460 
REM ANOTHER PLAYER 
PRINT : PRINT : RESTORE 


- 1,1) = "." 


LEN (TAS) 
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Di = Q:R$ = "NEXT": GOTO 460 


REM HIGH POINT 


IF P 
MM = @ 
IF TP 


= | THEN TP = TB(1): GOTO 1720 


SUV = 1:N 
(VV) > = 


=N- 1 
TP(VV + 1) THEN 1598 


TP = ТРОМУ) ТРОУУ) = трум + 1) 


TP(VV 
N$ (VV) 


+ 1) = TP: 


МФ = N$(VV) 


= N$ (VV +1)sN$(VV+ 1)= МФұММ = 


IF VV + 1) = 
V + 1: GOTO 1550 

REM NOT IN ORDER 

IF ММ = 1 THEN 1540 

REM POINTS COMPILED (FINAL) 

REM PRINT RESULTS 

"ALL HAVE PLAYED..." 

"BRESS RETURN FOR RESULTS ON 


VV = V 


PRINT 


PRINT 


SCORE 
GOSUE 


HOME 


2000 


sI = 1 


N THEN 1600: REM FINAL 


REM SINGLE PLAYER 


IF P 
PRINT 
PRINT 
PRINT 
PRINT 
FOR X 
PRINT 
NEXT 
GOTO 


"THE TOP 


"WITH A FINAL POINT SCORE OF: "; 


G$; TBI) 


1 THEN 1858 


WINNER: "sN$(I) 


"OTHER PLAYERS AND SCORES:" 
= I + 1 TO p 
N$ СХ) з" HAD: "6G$:TP(X) 


1880 


PRINT 0%;" YOUR TOTAL (FINAL) POINTS" 
PRINT "FOR GENERAL STORE ARE:": 


PRINT 
PRINT 
PRINT 
END 
REM 
FOR I 
DE = 


G$;TP 


"END ОР 


PROGRAM RUN" 


INFL.ATION/DEFLRATION 


= 1 TO 3a 


INT ( RND 


CSNG(DE / 10) 


DG - 


IF DG 


яға c > E 


РЕ(1) 


INT ( RND 
= г THEN 
INFLATION 
= PR(1) + 


w — , 


DEFLATION 
= PR(T) - 


(1) 4 ій + 1):DF = 


(1) * = + 1) 
сэй 


DF 


DF 


1 


D 


Y 
N 


X 


IF PRII) < = 
2570 


GOTO 


à THEN 256 


REM RANDOM PLAYER 


IF N > P THEN EE = 1: 


RETURN 


= INT ( RND (1) * P + 1) 

IF N(Q) = @ THEN 2829 

= Q:N(Q) = Q 

= N + 1: RETURN 

REM EXTRA MESSAGE 

PRINT 

PRINT "ADD ALL ITEMS TOGETHER" 
PRINT "BEFORE INPUTTING AMOUNT." 

IF Di > = 1ü THEN 2970 

FOR TL = 1 TO 28@@: NEXT 
HOME : RETURN 

PRINT "START WITH PREVIOUS TOTAL. 
GOTO 2950 

REM INPUT 
GS = PEEK ( ~ 16384) - 128 

IF XS ( = à THEN 3010 

РОКЕ ( - 16368),@: RETURN 

REM DATA/PRICE--ITEM COMBINED 

DATH MILK, BREAD, MEAT 

DATA MEAT, MEAT, FISH 
DATA CANDY, CANDY, CANDY 

DATA VEGETAELES, VEGETABLES 

DATA POULTRY, POULTRY 

DATA LETTUCE, ONIONS 

DATA SPINACH, CIGARETTES 

DATA CIGARS, BACON 

DATA TABLETS (PAPER), PENS 

DATA BATTERIES, BATTERIES 

DATA FURNITURE POLISH 

DATA CARPET CLEANER 

DATA HAND SOAP, HAND SOAP 

DATA CRACKERS, MEATS 

DATA SODAS (CASE) 

REM PRICES OF ITEMS 

DATA #.35,1.09,1.98,3.35,5.55, 3. 65 
DATA 1.35, 2.15, 1. 04, 1. 39, 1. 45, 3.44 
DATA — 1.99,1.409,1.11,1.29,7. 15,5. 74 
DATA 4.66, 1.23,2.44,2.66,.98, 1. 37 
DATA 2.41,1.99, 1.99, 1. 32, 8. 99,4. 32 
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Hold Time for the Apple Il 


їй PRINT  CHR$ 
са F 


105 
125 
130 
135 


140 
145 
150 
195 
168 
165 
170 


Го ro mto 
Ln + + ы 
OS® LH 


з fim 
I Qu 
an @ cd 
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= Bau 


(4) ; " BLOHGDSQUND'" 


НОМЕ 

HTAB 15: PRINT "HOLD TIME" 

PRINT s INPUT "INSTRUCTIONS? "52% 

IF Z$ = "N" OR Z$ = "NO" THEN HOME : 
GOTO 275 

PRINT : НОМЕ 

PRINT "OLD TIME...A MATTER OF HIGH OR" 
PRINT "LOW POINT TOTALS. THE COMPUTER? S" 
PRINT "CRAFT WILL BLIP ALL AROUND YOUR" 
PRINT "VIDEG. DOWN THE LEFT AND RIGHT" 
PRINT "SIDES WILL BE ASTERISKS. THESE" 
PRINT "АВЕ YOUR LASERS. AT THE INSTANT" 
PRINT "YOU THINK THE CRAFT IS IN LINE" 
PRINT "WITH THESE, HOLD THE SPACE BAR. 
YOUR" 

PRINT "LASER BLASTS WILL START MOVING" 
PRINT "TOWARD THE CENTER. THE COMPUTER” 
PRINT "CRAFT WILL ALSO CONTINUE TO 
MOVE. " 

PRINT = INPUT "PRESS RETURN TO 


CONTINUE :" s Z$ 


PRINT "YOU CAN 'HOLD' THE COMPUTER? 5" 
PRINT "CRAFT FROM MOVING FOR A SHORT 
TIME, " 


PRINT "ROUGHLY 20 SECONDS, RY HOLDING THE" 


CS 
0% 


PRINT "<P> AND (REPT) KEYS. POINTS 
WILL RANGE” 
PRINT "15@@ TO 4@@, DEPENDING ОМ 
WHERE ON" 
PRINT "THE SCREEN (TOP OR BOTTOM YOU 
DESTROY" 
PRINT "THE CRAFT. TIME LIMIT FOR THE" 
PRINT "ENTIRE RUN WILL BE JUST ABOUT" 
PRINT "FIVE MINUTES. THIS WILL BE NOTED" 
PRINT "AT THE LOWER RIGHT OF YOUR 
SCREEN, " 
PRINT "COUNT STARTS AT 30." 
PRINT 
PRINT = INPUT "PRESS RETURN TO BEGIN " 
«ХФ: HOME 

< "NE 

= "w" MR = B:MC = 16:Мі = isMe = i 
; = рі = i6: FOR X = i TO ай: УІНЕ i: 
HTAE X: PRINT Q$:: МУТАН 16: HTAR X: 


oJ 
ro 
о) 


bi DJ DJ GJ 
ы GJ DJ Го 
Ch GJ & ul 


PRINT Q$:: NEXT 

МТАВ 2: HTAR 36: PRINT "2@"3: FOR XR = 
2 TO 15:XC = 1 

VTAR XR: HTAB XC: PRINT 0%;: HTAB XC + 
39: PRINT 0$; 

POKE 769,93: РОКЕ 770,5: POKE 768,1: 
CALL 768 

GOTO 500 

IF Mi ¢ > і AND M24 21ТНЕМ GOSUEB 355 


FOR X = 1 TO 40: УТАБ 1: HTAB X: PRINT 
CHR (32)3: МУТАН 16: НТАВ X: PRINT CHR$ 
(59); 
МЕХТ 


FOR XR = 2 TO 15:XC = 1 
VTAB XR: НТАН ХС: PRINT CHR (52): 
HTAB 40: PRINT CHR® (32); 


GOSUB 355: NEXT : GOSUB 355: GOTO 310 
VTAB 16: HTAB 35: PRINT ABS ( INT (TT 
/ 60) ~ 350); 

УЧТАН Mi: HTAR MZ: PRINT " "5 

IF MR ( = 2 OR MR > = 18 THEN MR = 7 
VTAB MR: HTAR MC: PRINT C$;s:TT = TT + 1 
IF TT > = 18@@ THEN 830 


Mi = MR:M2 = МСИ = PEEK {~ 16384) -128 
IF W = 8@ AND G 5 = 20 THEN G = G+. 
4: GOSUE 774: RETURN 

XX = INT ( RND (1) * 4 + 1): REM 
CRAFT MOVE 
ON XX GOTO зай, 39a, 400,410 
REM LEFT MOVE 

MC = MC — INT (RND (1) * 5S + 1):G0TO 42a 
REM RIGHT MOVE 

MC = MC + INT 4 RAND (1) 5-1): БОТО 422 
REM UP MOVE 

MR = MR — i: GOTO 220 
REM DOWN MOVE 

MR = MR + i: IF PEEK (1153) = 32 THEN 
GOSUR 700: REM LOCATION OF MESSAGE 
FROM LINES 745-762 
IF PEEK (1186) = 32 THEN  GOSUR 700: 
REM LOCATION OF MESSAGE FROM LINE 315 
IF PEEK (1835) = 32 THEN GOSUR 7йй: 
REM LOCATION OF MESSAGE FROM LINE 705 
IF PEEK (1859) = 32 THEN GOSUB 700: 
REM LOCATION OF MESSAGE FROM LINE 715 
IF MC ( = 3 THEN MC = 38:MR = MR - 1 
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ІЛ  @ - d m 


(ncn p + + + 
9 8 oi Fo fis Го 


IF MR < = 2 AND MC ‹ = 3 THEN 418 
IF MC >) = 35 THEN MC = 3:MR = MR + 1 
IF MR > = 15 AND MC ? = 3S THEN 40а 


RETURN = REM SOUND ROUTINE LOCATION 


IF XR ( = 14 THEN W = PEEK ( — 16384) 
- 1g 
PI = PI ~ 1: IFW ( = @ THEN 330 


IF W = 32 THEN POKE { ~ 16368), а: 
GOTO Ses 

GOTO 332 

REM LASER ADVANCE 


IF XR > = 13 THEN 332 
IF XR ( = 2 THEN 53а 
HR = XR:HC = XC: IF HR > = 2 AND HR ‹ 


= 8 THEN H1 = HR * 128 + 896 
IF HR > = 9 AND HR ( = 16 THEN Hi = 
(HR — 8) ж 128 + 936 


HZ = Hi + 39:UN = UN + 1: REM SOUND 


ROUTINE 

IF RP = 1 THEN VTRE 2: НТАВ га: PRINT 
RES (R - UND 5 

POKE H1, 160: POKE He, 1860 

IF PEEK (Hi + 1) ¢ › 16@ OR PEEK 
(HZ — 1) < » 16@ THEN 57а 


Hi =H1 + 1šHËE = He -~1: REM SOUND ROUTINE 


POKE 769, 112 
POKE 770,6 

POKE 768,1 

CALL 768 

POKE Н1,170: POKE HĒ, 178 

IF ABS (Н> - H1) ( = ë THEN 9g 
GOSUR 355: GOTO 54a 

REM DIRECT HIT 
POKE Hi, 172 

IF PEEK (H2 - 
POKE HZ,16Q:HZ 
POKE HŽ, 17@ 

FOR O = 1 TO 2:NEXT:REM SOUND ROUTINE 
GOTO 580: REM TACK ONTO LINE 595 

REM DELETE 

= 1: POKE Hi, 160: POKE H2, 160 


y 4 M 4 ci 
+ + w. 


1) 4 
= He ~ 8 


IF MR › = # AND MR < = B THEN N = MR 
* 128 + 896 + МС ~ 1: REM SOUND ROUTINE 
IF MR? = 9 AND MR ‹ = 16 THEN N = 
(MR — A) ж 128 + 936 + MC ~ 1 


POKE N, 16@: POKE N + 1,16 
POKE N + 2,16 


J = INT ( RND (1) * 5 + 1) 


IF N+ J - 128)» = 119% THEN 640 
GOTO 66a 
POKE N + J ~ 128,170: POKE N + 128,170 
FOR I = 1 TO J * 1@: NEXT 
POKE N + J ~ 128,160: POKE N + 128,160 
GOTO 675 
POKE N + J + 128,170: POKE N + 128,178 
FOR I = 1 TO J ж ій: NEXT 
POKE N + J + 128,160: POKE N + 128,160 
IF Z < = 7 THEN 685 
IF ВР = à THEN GOTO 69a 
PI = PI + 1: GOTO 695 
Z = Z + 1: BOSUR ій 
GOTO 625 
PI = PI + 1:Х% = X$ + "+w 
рр = рр + PI ж i192: GOSUE 700: GOTO 924 
A$ = "TOTAL POINTS: ":ТФ = "TIME LAPSE: " 
FR = i5:FC = 3 
FOR І = 1 TO LEN (AS) 
VITOR FR: HTAR FC +25:PRINT МІРФ (T$, 1,1)3 
VTAB FR: HTAE FC: PRINT MIDE (A$, 1,1) 3 


FO = FC + 1: NEXT 
PRINT РР: IF RP = 1 THEN 7355 


IF X$ = "" THEN RETURN 
REM RESERVE POWER 
R$ = "RESERVE POWER: " 
FR = ЕС = 2 


FOR I = 1 TO LEN (R$) 
УТАВ FR: НТАВ FC: PRINT MIDS (R$,I,1)3 
FC = FC + 1: NEXT 
IF RP = 1 THEN ХФ = BTRS ( ABS (R — UND) 
PRINT X$; 
Т1% = "HOLD TIME ": REM HOLD TIME 
IF PEEK (1864) ( > 32 THEN 790 
FR = 2:ЕС = 25: FOR I = 1 TO LEN (11%) 
УТАВ FR: НТАБ FC: PRINT MIDS (71%,1,1) 
= FC + i: NEXT 
VTAB 2: НТАВ 36: PRINT INT ( ABS (G - 


POKE ( - 16368),0: RETURN 

REM TIME REMAINING 

IF RP = 1 THEN DK = 1: GOTO 9316 
IF TT >) = 18@@ THEN 830 

GOTO 300 

FOR ТІ = 1 TO 1200: NEAT 

HOME :R = LEN (X$) 


413 


414 


IF R = 0 THEN 960 
PRINT "VERY WELL DONE..." 
PRINT "YOU HAVE "Rs" UNITS OF" 
PRINT "RESERVE POWER...." 
PRINT "PRESS RETURN TO USE"; 
INPUT X$:TT = @:RP = 1:UN = й 
HOME 
GOTO 300 
POKE Н1,160: POKE Н2,16й0: REM DELEGE 
RESERVE UNITS 
IF RP = 0 THEN 33a 
IF UN) = R THEN 925 
IF DK = @ THEN 33ü 
DK = @: GOTO 81d 
REM FINISH 
FOR TI = 1 TO 12@@: NEXT 
HOME 
PRINT "RESERVE POWER EXHAUSTED....” 
PRINT "TOTAL POINTS ACCUMULATED: 
PRINT 
GOTO 28% 
PRINT "YOU HAVE DESTROYED NOTHING” 
PRINT "YOU HAVE NÜ RESERVE POWER." 
PRINT 
GOTO 945 
PRINT 
PRINT "END OF RUN." 
END 
F =F +7 
POKE 769,F 
POKE 770,7 
РОКЕ 768,2 
CALL 771 
RETURN 


H š pn 


Be Prepared for the Apple Il 


1 НЕМ PROGRAM TITLE БЕ PREPARED 

1@ PRINT | CHR$ (4) 3"BLOADSOUND" 

cü HOME : HTAOR ій: PRINT "> БЕ PREPARED ((" 

30 PRINT "BE SURE YOU HAVE READ THE 
INSTRUCTIONS 


PRINT "BEFORE YOU START.DO YOU NEED TO " 
INPUT "SEE THEM NOW (Y/N)? "SARS 

IF AAS = "N" THEN 93 

HOME : GOSUR seu 


FOR I = 1282 TO 1287 
= I TO I + 30 STEP 1d 


FOR I = 1576 TO 1578 

POKE I,K: POKE I + 37,K 

NEXT 

FOR I = 1583 TO 1588 

FOR J = I TO I + ёй STEP ia 
POKE J,K 

NEXT : NEXT 

FOR I = 1410 TO 1922 STEP 128 
FOR J = I TO I + 35 STEP 5 
POKE J,K 

NEXT : NEXT 

FOR I = 1066 TO 1450 STEP 128 


FOR J = I TO I + 35 STEP 5 
POKE J,K 
NEXT : NEXT 
POKE - 16368,0: IF C > 9 THEN C = 1 


IF C >) 3 THEN С = 1 
IF VD = à AND VW = ü THEN F = 1@@@й 
IF VD + VW = cU THEN 9342 


р = INT ( RND (1) * C + 1) 
IF F < = 1 THEN F = à: GOTO 33500 
GOSUR 3500 

5 = 185 
IF 5 = 1871 THEN DI = ~ is GOTO 109% 
IF ( РЕЕК ( — 16384) — 176) = D THEN 
FA TU 


Т = 5:8 = S + 1 
POKE Т,0: POKE S,153:F = Е ~. 1@ 
GOTO 1042 

Т = 5:35 = 5 ~ 1 


415 


IF ( РЕЕК ( - 16384) - 176) = D THEN 
POKE T,@: GOTO 7G 

IF S = 1832 THEN DI = 1: IF C = 9 THEN 
Lama 

IF DI = - 1 THEN 1104 

IF C < » 9 AND 8 = 1832 THEN C = C + 
1: POKE ~ 16368,0: GOTO 1005 

POKE T,@: POKE S,153:F = F - 10 

IF DI = - i THEN 1090 

PRINT " A LONG TIME FROM NOW, IN A 
GALAXY" 

PRINT "LIGHT~YEARS AWAY..." 

PRINT : PRINT "YOU HAVE BEEN ASSIGNED 


TO DUTY ABOARD" 


PRINT "THE SPACE CARRIER ° XENOPHON? , " 

PRINT "YOUR ASSIGNMENT: TO SAFELY DOCK 
TWENTY" 

PRINT "BATTLE CRUISERS RETURNING FROM 

DEER" 

PRINT "SPACE. ": PRINT 


INPUT "PRESS RETURN TO CONTINUE" 5s AAS 


HOME = PRINT "THE VESSELS HAVE 
LIMITED FUEL REMAINING” 
PRINT "SO YOU MUST DOCK THEM AS SOON AS" 


PRINT "POSSIBLE. YOU WILL SEE THE PORTS" 
PRINT "ON THE SCREEN AS BLUE AND 

WHITE TUBES. " 

PRINT "WHEN YOU THINK THE VESSEL 15 

AT THE" 

PRINT "GPENING, PRESS A NUMBER KEY 
BETWEEN" 

PRINT "ONE AND TWO FOR THE FIRST 
VESSEL.” 


INPUT "PRESS RETURN TO CONTINUE ";AAG 
HOME : PRINT "FOR THE SECOND VESSEL 
YOU MUST CHOOSE” 

PRINT "BETWEEN KEYS ONE THROUGH THREE, 
THE" | 
PRINT "POSSIBLE CHOICES INCREASING 
FOR EACH" 

PRINT "VESSEL UP TO NINE, THEN 
STARTING QVER." 

PRINT"IF YOU FIRE AT THE WRONG TIME OR" 
PRINT "ALLOW THE VESSEL TO RUN QUT 

OF PUEL 

PRINT "YOU WILL HAVE DESTROYED A 
VALUABLE” 

PRINT "VESSEL AND MANY HUMAN LIVES. 
TAKE THIS" 


Y = X:X = 


C = 


VD = 


C = 


C = 


PRINT "ASSIGNMENT SERIOUSLY. 
WILL BE ALL" 


THAT 


PRINT +: INPUT "PRESS RETURN TO BEGIN" 
SAAS 
RETURN 
POKE - 16368,@:X = 5 
AA = Q 
an = AA + 1: GOSUR 8000 


IF AA (11 THEN 7040 

GOTO 3220 

GOTO 7410 

IF X » 1066 AND X ¢ 1101 THEN J004 

IF PEEK (X - 128) ( > @ THEN 9144 

X — 128 

POKE Y,Q: РОКЕ X, 153 

RETURN 

FOR II = 1066 TO 1096 STEP ій 

IF X >) II AND X С II + 5 THEN Y = X:X 
= X + 856 

NEXT II: GOTO BAEZA 

GOSUR 96 

HOME : МУТАН 25: FLASH : HTAR іг: 
PRINT "VESSEL DESTROYED” : VW VW + 1: 
FOR TT = 1 TO 2000: NEXT :F 1 ДЕ 
NORMAL : POKE Х,а 

GOSUR 9500 
C + 1: 
GOSUR Э8@@ 
HOME : VTAÀB 23: INVERSE :s 
PRINT "VESSEL DOCKED": 
TO 2000: NEXT : 
VD + i:F = 
GOSUB 9500 
Ë + 1t: 
GOSUB 97 
NOTRACE : VTAB 23: INVERSE : 
PRINT "FUEL. EXHDUSTED" : 
О 2000: NEXT : 
= luu 
РОКЕ Х,0 
GOSUR 9500 
C + 1: 
GOSUR 95404 
VTAB 21: PRINT TAB: 120;"G AME 
O VE R " 
FOR TT = 1 TO 6006: 
TEXT : HOME : END 


POKE - 16368,@: GOTO 1005 
НТАВ 13: 
FÜR TT = 1 
NORMAL : POKE X, a 
10090 

PDKE - 16358,0: БОТО 1905 
HTAR 13 
FOR TT = 1T 
NORMAL :VW = F 


РОКЕ - 16368,0: GOTO 1003 


NEXT 


417 


418 


HOME 


VTAE 


® VTAR ор: 
REMAINING: 
таз PRINT 


TERIS 


VESSELS DESTROYED: "VW 
RETURN 
FOR II = 1 TO 4 
POKE 769,159: POKE 77@,7: POKE 768,3 


CALL 


POKE 769,173: 


CALL 
NEXT 


PRINT 
VESSEL. ": 


768 


768 


768,3 


POKE 770,6: 


POKE 77a, Зӣ 


PUKE 770,49: 


769,6: POKE 770,8 


768, 16 
771 
769,135: 
768,16 
760 
769,93: 


POKE 770,5 


POKE 770,5 


PRINT TAE( 


"VESSELS DOCKED: 


13) ; "FUEL 


POKE 768,3 


POKE 768,3 


"ONE AND TWO FOR THE FIRST 
PRINT 


EVD 


Rain of Terror for the Apple Il 


REM PROGRAM TITLE:RAIN OF TERROR 
CLEAR 
HOME : PRINT 
HTAR ій: PRINT "*** RAIN OF TERROR жж" 
PRINT 
INPUT "INSTRUCTIONS (tY/ND)":n$ 
IF ЯФ = "N" THEN 19 
PRINT "YOU WILL BE ROMBARDED FROM THE " 
PRINT "SKY BY FALLING BOMBS. ALL YOU" 
PRINT "NEED TO DO TO STAY ALIVE IS ТО" 
PRINT "USE THE LEFT AND RIGHT ARROW 
KEYS" 
PRINT "TD GET OUT OF THE WAY OF THE" 
PRINT "FALLING BOMBES. SOUNDS VERY" 
PRINT "SIMPLE, BUT YOU MUST БЕ FAST!" 
PRINT 


PRINT 

PRINT "PRESS RETURN TO BEGIN" 
INPUT AAS 

HOME 


REM BORDER / MESSAGES 

GR : COLOR- 7: НІМ 0,59 AT à 

GOSUR 510 
R = ñ: REM POINTS 
PR = 1:PC = @:PP = PU + 39:0R = PR + 
PSUC = PC:UV = UC:UM = UC + 34:RR = € 
RR = ü 

COLOR- 3: PLOT РС, PR: COLOR= й: PLOT 
UDL,UR:PL = PC + 2 

UC = UC + 2: PLOT PC ~ =, PR: COLOR- 11: 


BLOT UC, UR 

IF PC >) = BP THEN COLGR= @: PLOT UC, 
UR: GOTO сай 

PX = INT ( RND (1) * 39) 


IF ABS (PL — PX) < = & THEN Sea 
GOTO =й 
REM A DROP 
PL = PR 
COLOR= 3: PLOT РС, PR:PR = PR + 1 
COLOR- 4: PLOT РС, PR ~ 1 
IF PR >) PL + 13 THEN A41 
K = PEEK ( ~ 16384) ~ 118: IF K = 8 
THEN 422 
IF K = Ei THEN 47ü 
R = R + ES:RRH = RR + 2S: VTAR 21: HTAR 
18: PRINT RRs: VTAB ccs 


419 


HTRB 18: PRINT R; 


420 


IF PR = UR AND PC = UC THEN SSüELSE 
GOTO Зай 

GOTO 340 

PR = PL:RR = 0: GOTO 250 

COLOR- 0: PLOT UC,UR: PLOT UX,UR 
UC = UC ~ 


IF UC ( = UV THEN 48ü 

COLOR= 11: PLOT UC,UR 

ӘПКЕ ( — 16368), @:UX = UC 
UR = PL + 13:UC = PC: GOTO 340 


1 
* 

COLOR- й: PLOT UC,UR: PLOT UX. UR 
+ 


H p 


IF UC > UW THEN UC = UW 
GOTO 450 
REM MESSAGES 


VTAB Ži: PRINT "POINTS BEFORE HIT": 
УЧТАН 22: HTAB 1: PRINT "TOTAL POINTS "i 


REM BOMBED 


R= R ~ RR: HTAR Z2: УТАБ 18: PRINT R; 
IF UC ( = & THEN UC = UC + 3 


IF UC >) = 37 THEN UC = UC - 3 

Ri = UR — 1:61 = UC:RE = RisC@ = Ci - 
1:R3 = Я1:С5 = Сі + 1:04 = d 

COLOR= INT ( RND (1) ж 6 + 4): PLOT 
UC, UR 

PLOT Сі, Ві: PLOT Ce, Re 

PLOT C3, ЕЗ 

FOR T = 1 TO ёй@: NEXT :U4 = U4 + 1 
COLOR- 0: PLOT UC,UR: HLIN СЕ, СЗ AT Rë 


IF ABS (UR ~ R1) › = 4 THEN 672 
Ri = Ri ~ Га = Ci ~ U4:05 = Ci + ЦА; 
GOTO eue 

REM GONE 

FOR T = i TÜ Shadi: NEXT 


— x “а 


TEXT : НОМЕ 

PRINT "YOU HAVE BEEN DESTROYED BY ONE" 
PRINT "ОЕ THE FALLING BOMBS. YOUR" 
PRINT "TOTAL POINTS ACCRUED BEFORE" 
PRINT "BEING DESTROYED WERE:  ";R 
PRINT : FOR T = i TU іййй: NEXT 
A$ = "RAIN ОҒ TERROR" 

FOR I = 1 TO LEM (CAS) 

МУТАН 15: PRINT MIDS (80$,1,1); 

NEXT 

END 


Knights for the Apple |! 


ій 


ro ro D 
(ЛП БО 
aes 


REM PROGRAM TITLE: KNIGHTS 
PRINT CHR (4) 3; "BLOADSOUND" 


CLEAR 

HOME : HTAR 15 

PRINT "УУ У KNIGHTS <<" 

PRINT 

PRINT "INSTRUCTIONS NEEDED?" 

INPUT T$ 

IF T$ = "М" OR T$ = "NO" THEN 372 

PRINT "THERE ARE 18 KNIGHTS IN A CASTLE." 


PRINT "THESE ARE KNIGHTS WHO HAVE DONE 
WRONG" 

PRINT "AND WERE IN A DUNGEON WAITING” 
PRINT "TO HAVE THEIR HEADS REMOVED. " 
PRINT "THEY HAVE ESCAPED FROM THE 
DUNGEON” 

PRINT "AND CAPTURED THE CASTLE." 

PRINT "WITH THEM THEY HAVE EIGHT" 


PRINT "HOSTAGES WHOM THEY HAVE 
CAPTURED" 

PRINT "THE KING WILL NOT MEET THEIR 
TERMS" 


PRINT "50 THEY HAVE VOWED TO FIGHT" 


PRINT 
PRINT 


"TO THE DEATH..." 
: INPUT "PRESS RETURN TO 


CONTINUE: "AAS 

PRINT "YOU ARE THE SHARPSHOOTER 
SELECTED" 

PRINT "БҮ THE KING TO TERMINATE EACH" 
PRINT "DF THESE KNIGHTS. YOU ARE” 
DRINT “EQUIPPED WITH A HIGH-POWER 


CROSS-—" 

PRINT "BOW. ALONG THE CASTLE WALLS 
ARE" 

PRINT "FIVE WINDOWS. EACH TIME A 
FIGURE" 


PRINT "APPEARS AT А WINDOW YOU'LL HAVE” 
PRINT "THE OPTION OF FIRING (BY 
STRIKING” 

PRINT "THE SPACE BAR) OR NOT. THE" 
PRINT "FIGURE APPEARING IN THE WINDOW" 
PRINT "COULD BE ONE OF THE HOSTAGES. " 
PRINT "IF IT IS A KNIGHT AND YOU 

DON’ T FIRE" 

PRINT "YOU COULD BE HIT..." 


421 


зой PRINT 

360 INPUT "PRESS RETURN TO BEGIN, "TẸ 
370 HOME К = i@sHD = B:CR = 10: GR 

380 REM MAKE A CASTLE 

394  COLOR- 6: FOR C = à TO 39: НІЧ @, 39 


3r бї: NEXT 

AQQ COLOR= 10: FOR C = 12 TO 26: НІМ 2,238 
АТ C: NEXT 

410 FOR C = 2 TO 38 STEP ë 

420 PLOT C,9: NEXT 

Sia X = 13:Y = 4: COLOR- © 

Som FOR C = X TO (X + 1@) 

530 FOR Y = 4 TO 32 STEP 7 

S40 НІМ Y, (YV + 4) ATC 


обй NEXT C | 
234 REM GET A WINDOW 


йа И = INT (Š # RND (1) + 1) 

Gig WI = 7 к W — 5 

БЕЙ РОКЕ ( - 16358), й: REM PAUSE BEFORE 
PLACING 

634 PP = INT (700 * ЕМО (1) + 251) 


бай FOR PU = 1 TO 748 

БЎЙ IF PU = PP THEN 674 

бей NEXT : GOTO 63a 

678  GOSUR 1638 

6848 REM SHARPSHOOTER TO FIRE 
69@ FOR TI = 1 TO ida 

700 WS = PEEK ( — 16384) - 128 
71й IF WS = 52 THEN 730 


72a NEXT 

730 POKE ( — 16368),й: REM KNIGHT OR 
HOSTAGE 

740 Hi = INT (Š * RND (1) + 10:HZ = INT 
(з ж RND (1) + i):H3 = INT {5 ж RN 
D (1) + 1) 


750 H = BES ІНІ - HZ - H3) 

764  GOSUB 167 

762 IF H = W THEN 124 

765 IF HD ¢ = ü THEN THEN 84й 

774 IF H = @ORH> = 5 AND TI < = 
99 THEN 79 


780 GOTO 840 

790 REM A HOSTAGE 

айй IF ТІ» = 75 THEN Aan 

Вій  GOSUB 16@a: PRINT "YOU HAVE JUST 


KILLED GNE OF" 


422 


1084 
1090 
1100 
111й 
1i2u 
1130 
1140 
1150 
1160 
1165 
1170 
1150 
1190 
12@@ 
ісіп 
Tze 
12354 
1240 


ісей 


PRINT "OF THE HOSTAGES, TURKEY!!!" 
GOTO 370 
iF TI > = 1@@ THEN 88@ 
PRINT "GOOD SHOOTING! YOU HAVE” 
PRINT "ELIMINATED ANOTHER KNIGHT!" 
GOSUB 130% 
GOTO Зай 
ЕНУ = @ AND Н ‹ = & THEN ici 
GOSUR 2100 
PRINT "THINK FASTER!!! YOU HAVE BEEN" 
PRINT "HIT BY ONE OF THE KNIGHTS! !" 
HM = HK + 1 
IF HK >) = 6 THEN 1060 
GOTO 39a 
= K ~ 1: PRINT Ks" KNIGHTS REMAIN" 
IF K ( = @ THEN 11zü 
GOTO 39a 
HD = HD - 1 
IF HD < = à THEN 11880 
FOR TX = 1 TO 1500: NEXT : HOME 
GOTO 14] 
REM CLEAR PRINT AREA 
GOTO 59a 
IF HD ( = à THEN 850 
PRINT "GOOD THING YOU DIDN'T SHOOT!" 
PRINT "THAT WAS A HOSTAGE!” 
GOSUB 190% 
GOTO 99й 
REM HIT ENOUGH 
PRINT "YOU HAVE BEEN HIT "НК" TIMES. ” 
PRINT "YOUR BODY CANNOT STAND" 
PRINT "ANY MORE. YOU ARE DYING." 
GOTO 1530 
REM KNIGHTS KILLED 
GOSUB 1944 
PRINT "YOU HAVE KILLED ALL. ТЕМ" 
PRINT "KNIGHTS. THE KING WILL БЕ" 
PRINT "PROUD OF YOU, MY FRIEND..." 
GOSUR 1300 
GOTO 1534 
REM HOSTAGES GONE 
GOSUR 18d 
PRINT "YOU HAVE KILLED ALL OF THE " 
PRINT "HOSTAGES. .. YOU TURKEY!!!" 
PRINT "THE KING WILL HAVE YOUR HERBD'!'" 
GOTO 39a 
REM COMPLETE MISS 
XX = INT (37 * RND (1) + 3) 
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1278 
1280 
1298 
1293 
1510 
1520 
13540 
13525 
1560 
1570 
1380 
1400 
1410 
1420 
1425 
1434 
1440 
1850 
1452 
14565 
147ü 
i480 
1490 
12421 
1510 
152 

1530 
1540 
1550 


1553 


156 
1578 
158u 
15930 
1600 
1610 
16гй 
1634 
1640 
1650 
166% 
1670 
1680 
1630 
1700 
1710 
180 
1810 


424 


YY = 


INT (10 x RND (1) 
IF YY („= 17 THEN 1270 
COLOR- 0: PLOT ХХ, ҮҮ 
GOSUE 2100 

PRINT "YOU'LL HAVE TO DO BETTER" 

PRINT "THAN THAT, YOUVE MISSED!!" 

GOTO 992 

REM CROSSBOW ROUNDS 

VTOB 21: HTAR 1 

PRINT "YOU HAVE "sCR:" ARROWS TO FIRE." 
RETURN 

REM ENOUGH ARROWS LEFT 


+ 13) 


IF TI < = 99 THEN CR = CR - 1 
GOSUB i554: IF CR < = à THEN 1440 
FOR TX = 1 TO zu: NEXT : HOME 
GOTO 590 

REM END 

FOR TX = 1 TO aaa: NEXT 

TERT : HOME 

GOSUR 2100 

PRINT "YOU HAVE EXHAUSTED YOUR" 
PRINT "SUPPLY OF CROSSBOW ARROWS. " 
IF К < > @ THEN 1510 

БОТО 1530 


PRINT "THERE ARE STILL ";K:" KNIGHTS” 
PRINT "IN THE CASTLE” 


PRINT 
IF HD ( = à THEN 156 

GOTO 1600 

GOSUR 2100 

PRINT "YOU ARE A BLUNDERING SHARP—" 
PRINT "SHOOTER, YOU IDIOT!!!" 

PRINT "YOU HAVE HIT AND KILLED ALL” 
PRINT "EIGHT HOSTAGES!" 

PRINT 

PRINT "END GF RUN" 

END 

COLOR= 9: FOR Y = (WI + 1) TO (WI + 3) 
FOR Z = #1 TO 23: PLOT Y,Z 

NEXT Z: NEXT Y 

RETURN 

COLOR= 6 

FOR Y = (WI + 1) TO (WI + 3) 

FOR Z = 21 TO 23: PLOT Y,Z 

NEXT Z: NEXT Y 

PETUPN 


REM  BEE-BOOP 
POKE 769, 33 


РОКЕ 


POKE . 


CALL 
POKE 
POKE 


POKE ` 


CALL 


RETURN 


REM 

POKE 
POKE 
POKE 
CALL 
POKE 
POKE 
POKE 
CALL 
POKE 
POKE 
POKE 
CALL 
POKE 
POKE 
POKE 
CALL 


TA-DA TA-DAA!! 


769,4 
770,23 
768, 12 
771 
769,8 
770,14 
768, 12 
771 
769,4 
770,23 
768, ia 
771 
769,8 
772,14 
768, 50 
771 


RETURN 


POKE 769, 200 


POKE 
POKE 


770,75 
768. 1 


RETURN 
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Mind Invasion for the Apple ЇЇ 


14 REM PROGRAM TITLE MIND INVASION 
c REM INSTRUCTION ROUTINE 
34 CLEAR s GOSUR i15090:J = 1:TR = 1 
ай ӨН : REM OUTER GRAPHICS 
Әй X = i:Y = 38:M = 1:DN = 1:TX 
= TX:Xi = 1 
ба COLOR= Hs PLOT Х1,Х: PLOT Y, X: PLOT X1 
+ XS PLOT Y e BA 
74 X = X + гр у = YU ed = J + 1:X1 = X1 + 1 
ба IF J < > 8 THEN GOTO бй 
Әй REM GOTO CHARACTER PRINT/IF DONE 
95 PLOT Х1,Х: PLOT Y,X:X1 = Хі — l:Y = 
V + 1:X = X +1 
ia IF J = 16 THEN POKE TX,ZZ24:N = 14: 
GOTO 140 
114 COLOR= K: PLOT X1,Xs PLOT Y, X: PLOT Xi 
+ 2,Х: PLOT Y — Ë, X 
115 IF PN = і THEN AC1) = ХіЗА(2) = Yel = 
Ai) sR = ACE) 
ігі X = X + #sX1 = X 
130 J = J + m DN = ë 
14d VTAB zi: HTAR 2 
ісе PI = à 
16@  GOSUR 310 
170 PRINT "PLAYERs"sSN$(6PZ) 
ean REM CHARACTER GRAPHICS VARIABLES 
219 J = Үлбі = £:0W = SC:E = ВР = 10:ТС 
= DRO = 1637 = Lobe = БЕР? = ЕЁ 
Q КҮ = 1:G = 3@: IF ТІ) = 3 THEN 880 
à COLOR= 13: FOR I = @ TO J: PLOT GU + 
I,E: PLOT QW + I,E: PLOT QU + I,F: PLO 
T OW + IL,F:E1 = E ә Тера up 
Ай T = T + 1 
ESA COLOR= 0: PLOT QU + 1,E: PLOT GW + I, 
E: PLOT QU + I,F: PLOT QW + I,F:E1 = E 
se 1:F1 = F + 1 
cod IF Т» = Е THEN 
274 COLOR is: FOR I 


1939:TL 


Í 


1 — Уа Y + d 
: GOTO iu 
За PRINT "YOUR POINTS= "; 


= J - 1 
à TO J: PLOT GU + 
I,F — 1: PLOT QW + I,F — 1: PLOT QU + 
I,E — 1: PLOT GU + I,E: PLOT QU + I,F 
гай PLOT OW + I,E ~ 1: PLOT GW + I,F + i: 
PLOT DW + I,Ei ~ i: PLOT QW + I,F1 +1 
сэй  COLOR- @: PLOT GU + I,F - 1: PLOT QU + 
І.Е — i: PLOT QU + I,E — i: PLOT QU 
+ I.E: PLOT QU + I,F 


H oca 


+ + 
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PLOT OW + I,E - i: PLOT QW + I,F + i: 


PLOT QW + I,E1 ~ 1: PLOT QW + I,Fi +1 
E = E- 1:F = F + 1:El = Ee — ë: F1 = Fë 
+ @:Е1 = EB + ë 

IF T ( = 4 THEN EZ = EZ + НЕЕ = Fe 

+ i:T = T + 1 

IF T»? = & THEN EZ = EZ — i:F2 = Ер 

- 1:T = T + į 

REM RESET VARIABLES IF DONE 

GOTO уйй 

IF T> = а THEN 2йй 
KY = KY + 1: GOTO 26a 

REM FOR CHARACTER CLEAR 
X5 = PEEK ( - 16584) ~ 1264 
TI = TI + 1: REM LIMIT COUNT WITHOUT 
MOVEMENT 

IF XS 5 > 73 AND X5 ( >» 77 THEN 

POKE ( — 16368),@: GOTO 34a 
Ti = 1: REM  PLACEMENT/LIMIT/RESET 

IF XS = 73 THEN POKE ( ~ 16368),@: 

GOTO 46 

IF XS = 77 THEN POKE ( - 16368)0,U: 

GOTO 492 

GOTO Зай 

РОКЕ TX,@: IF TX = 1083 THEN TX = TX 

+ 856 

IF TX > 1555 AND TX ( = 1939 THEN 

TX = TX ~ 128 

IF ТХ >) 21483 AND TX 5 = 1339 THEN TX 

= TX m 128 

IF TX = 1555 THEN TX = TX + 128 

РОКЕ TX,c2z246:U£HYD) = XS: GOTO 34a 

POME TX,@: IF TX = 1939 THEN TX = TX 

- 856 

IF TX € 1939 AND TX >) = 1555 THEN TX 

= TX + 128 

IF TX > = 1483 AND TX ( 1467 THEN 


TX = TX + 128 
IF TX = 1339 THEN TX = TX - 128 
POKE ТХ, 224:0(КҮ) = XS: GOTO Зай 
REM TOP/BOTTOM CHARACTERS 
FOR V = 1 TO G: FOR OX = 15 TO 25: 
PLOT QX, TC 
PLOT QX, BC: NEXT 
COLOR= @: FOR GX = 
PLOT QX,BC: NEXT : 

TC = TC + 1:BC = BC - 1:5 = G - ë 
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бой 
670 
eau 
700 
705 


710 
720 
7 3 
740 
798 
тый 
?7ü 
780 
730 
aua 
810 
Bre 


310 
эг@ 
350 
960 
3780 


зай 


ээй 
1440 
1210 
laca 
10.50 
140 
1430 


1064 
1070 
1080 
iaga 
11@@ 
111@ 
112 
1134 
1140 
1150 
1164 
1204 
ірій 
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REM REPLACE USER CHARACTER 

IF PEEK (TX) = à THEN РОКЕ TX, 238 

GOTO 31a 

REM CRUSHER MOVEMENT 

COLOR= @: PLOT (B(1) + 20,9: PLOT 

(ACS) ~ ë),3 

PLOT 1,15: PLOT R,15 

IF ABS (L-R 5 = 
L = L + 3:R = R - 3 


3 THEN 7S5 


COLOR- K: PLOT 1,18: PLOT R, 15:GOTO 4a 


L = ACI) SR = Ale): GOTO Әй 
POKE POKE (L + 2), К 
POKE (R ~ 2), F 
RECYCLE 
AAA 
REM CRUSHED? 
IF PEEK (TX) = à THEN 844 
IF TI г AND UCKY) 5 > U(KY - 1) 
THEN PI = PI + ARS (TX - TL): GOSUB 
HTAB 3 МТАв 21: PRINT PI: RETURN 
GOTO 2 
REM PLAYER ADVANCE/END 
TP(PZ) = PI:PI = @sP7 = PZ + і 
IF PZ > PL THEN GOSUEB 1z:TR = 
1:B2 = 1 
IF TR > = Š 
1010 
FOR LX = 1 TO 14: BRINT : NEXT 
GOSUB г100: HOME :J = i: GOTO ай 
REM END/HIGH POINT WINNER 
T = @:Н = 1: IF H = PL THEN 11520 
IF ЕТІН) >) = ЕТІН + 1) THEN 148 
FT = FITCH) sFTCH) = ЕТІН + 1) 
ЕТІН“ 1) = FTsN$ = МФҰН)::МФ(Н) = 
(H + 1) 


МЕН + 1) 


i 
cs 
50 
L. 


TR 
THEN GOSUB 12449: GOTO 


N$ 


il 


МФ 


1 
PL THEN 1@3й 

1 THEN i@e@: REM МОТ REFINED 
p 


НОМЕ 

PRINT "YOUR TOTAL POINTS, AFTER ë" 
PRINT "RDUNDS=";TB(H) + WEG 

GOTO 1394 

REM TALLY FIRST ROUND POINTS 

IF TR >) = & THEN RETURN 


ісей 


FOR I 


1230 WECT) 
ігай REM FINAL TALLY 


1250 
1260 
1270 
1280 
1320 
1310 
1320 
1330 
1540 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
i620 
1630 
1640 
1650 
1660 
1670 


1680 


1630 
1708 
1714 
1720 
17350 
1740 
1750 
1770 
1780 


= 11: 


= 1 
TPT): 


TO PL. 


NEXT : RETURN 


FOR I = 1 TO PL 
FT(I) = WE(I) + TB(I) 

NEXT 

RETURN 

REM TOP WINNER (MORE THAN 1 PLAYER) 
HOME 

= 1 

PRINT "THE TOP WINNER: "sN#(I) 3" WITH"; 
PRINT FT(I) 3" POINTS." 

PRINT "FOLLOWED BY:” 

FOR I = ë TO PL: PRINT МФС) з" WITH” 
PRINT FT(1);" POINTS. " 

NEXT 

PRINT 

PRINT "END OF PROGRAM RUN." 

END 

REM INSTRUCTIONS 

I$ = "MIND INVASION" 


HOME 


FOR LX = 1 TO LEN (I$) 
HTAR I: PRINT MID (1%,1Х,1); 

FOR Y = 1 TO 5ü: NEXT Y 

= 1 + 1: NEXT LX 

FOR Y = 1 TO iQ: NEXT 

PRINT 

INPUT “PLAYER NUMBER (1-10)";PL 

IF PL € = ü DR PL > = 11 THEN 1598 
PRINT "PLAY OUTLINE NECESSARY "; 

INPUT X$ 

IF ХФ = "N" OR ХФ = "NO" THEN 2@4a 
PRINT 

PRINT "EACH OF YOU ";PL;" PLAYERS WILL" 
PRINT "EXPERIENCE ñ NEW FORM OF MIND" 
PRINT "INVASION. THE ORJECT OF THE 
GAME : " 

PRINT "KEEP PLAYING AS LONG AS 
POSSIBLE" 

PRINT "WITHOUT GETTING 7 CRUSHED’. " 
PRINT "YOU, THE USER, WILL BE LOCATED " 
PRINT "AT THE CENTER OF THE VIDEO " 
PRINT “IN THE FORM OF A BLUE BLOCK. " 
PRINT "YOUR ONLY MOVEMENTS WILL BE UP" 
PRINT "AND DOWN. YOU WILL DO THIS " 
PRINT "WITH THE 'I' AND ° М KEYS." 
PRINT 

PRINT "PRESS ENTER TO CONTINUE"; 
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INPUT X$ 

HOME 

PRINT "TO TAKE ADVANTAGE OF ANY 
POINTS” 

PRINT "YOU MUST BE CONSTANTLY MOVING" 
PRINT "UP OR DOWN. THE OUTER 
BOUNDARIES" 

PRINT "OF THE VIDEO WILL CONTAIN" 
PRINT "FLASHING LIGHTS FOR CONFUSION. " 
PRINT "ALSO CONTAINED IN THE 
BOUNDARTES" 

PRINT "ARE BLOCKS, TWO OF WHICH" 
PRINT "WITHOUT NOTICE WILL MOVE VERY" 
PRINT "QUICKLY TOWARD THE CENTER. TO” 
PRINT "YOUR LOCATION. IF YOU CAN " 
PRINT "MOVE OUT OF THE WAY, YOU CAN” 
PRINT "CONTINUE PLAYING; BUT IF, ОМ" 
FOR LX = 1 TO zs NEXT 

PRINT "THE OTHER HAND, YOU ARE 
CRUSHED, " 

PRINT "PLAY WILL ADVANCE TO THE NEXT" 


PRINT "PLAYER. THIS IS ALSO TRUE IF” 
PRINT "YOU COLLIDE WITH THE BLOCKS. " 
FOR LX = 1 TO 2ййй: NEXT LX 

PRINT "PRESS ENTER TO CONTINUE" 

INPUT X$ 

HOME : PRINT "THE GAME WILL TERMINATE 
WHEN EACH" 

PRINT "PLAYER HAS PLAYEDA TOTAL OF TWO” 
PRINT “ROUNDS. THE PLAYER FINISHING " 
PRINT "WITH THE HIGHEST POINTS WILL BE" 
PRINT "THE WINNER..." 

PRINT 

PRINT "NOW ENTER THE FIRST NAMES" 
PRINT "OF THE ":iPL;" PLAYERS:'" 

FOR I = 1 TO PL: INPUT М%(1) 

NEXT 
PZ = 1 

PRINT М%(Р2);" WILL NOW PLAY. PRESS" 
IF PZ > г OR TR? = & THEN 2150 
PRINT "THE ENTER KEY WHEN READY. " 
INPUT $$ 

HOME 

RETURN 


PRINT "THE ENTER KEY WHEN READY"; 
INPUT A$: TI = @: RETURN 


COLOR- @: PLOT QU + ILF — 1: PLOT бы 
+ IF — l: PLOT QU + ILE - 1: PLOT QU 
+ I,E: PLOT QU + I,F 


Trapped for the Apple Il 


10 
lo 
=й 
Зӣ 
4t 


D 


C 


X 


REM PROGRAM TITLE: TRAPPED 


PRINT CHR4 
CLEAR 


HOME 


PRINT 
PRINT 
IF Wt 


3ouu 
HOME 
G 
GR 
L = 


— 
— 


— 
— 


COLO 
HL. IN 
HL IN 
HL IN 
VLIN 
VL IN 
VL. TN 
VL.IN 
КЕМ 


C = @ 


R 


R 


R2 = Ri + 9:83 


EE 


rd 


"ж 


i: MM 


AER 


R= ł 


Салат 


TRAPPED ж" 


(4) ;" ELDBDSOUND" 
DIM AA(12),PI(12),1$(1z) 


INPUT "LIST INSTRUCTIONS?" :WẸ 


ағар 


GOSUB 5300:70 


—— 
ж.” 


Q:CR e 


Land 
— 


жы 
— 


А: Тр 


сй4:У = 


— 
D» om 


L в 


AT 1 
37 
58 
їй 
1 


58 


INNER GRAPHICS 


* í 
INT 


* 91) 


R4 


p 


PR 


RI + 
INT 


R1, 
+ 1 
( 

A,R 


INT 


( RND (1) ж 


OR WH = "YES" 


— 
— 


1E + @4:TR 
REM BORDER GRAPHICS 
154: C 


e 


j 


HLIN @,39 AT а 


39: GÜSUR 3450 


ca + i) 
IF C > à THEN GOTO 26a 


= INT ¢ RND (1) 
R3: R3 = Re + RS 
€ RND (1) ж 2 + 1) 
2 THEN R4 = RS 
R4 AT R 


> 5 THEN 17й 
1 AT R + Ë 


A, RE AT R + 4 


RA, 
RS, 
› 2 
2 
18g 
( 


180 


STA 


39 AT R = ё 
33 AT R- 4 

THEN GOTO 
= 12 THEN R 


= 
.лња 


c6 THEN R 
RT POSITION 


GOSUR 3542 


C 


т. 
--- 
= 
— 


ZZ: 
ZZ 


GOSUR 3900 


gt 
R — 4:C 
R + 4:0 


il 


THEN GOSUB 


TP 


( RND (1) ж 13 + 49) 


C + 1: 


C + i: 
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+ £),PR) < > @ THEN 330 
IF SCRN( PC, (PR + 10) < > WOR 
SCRN( PC, (PR ~ 1)) < > @ THEN 3530 


рі = PO + 2:P2 = PR: COLOR- 3: PLOT PC, 


PR: COLOR- 13: PLOT Pi, Pe 
REM MOVEMENT OF COMPUTER PIECE 
IF SCRN( PC, (PR ~ 1)) = @ THEM A 
і: GOTO 44€ 
IF  SCRN( PC, (BR + 120) = @ THEN A 
GOTO 440 


il 


nà 


IF SCRN4 (PC ~ 2), РА) = ü THEN A = 
5: GOTO 44u 
IF SCRN( (PC + 2), BR) = @ THEN A = 


4: GOTO 44 
GOTO 8164 
COLOR- й: GOSUE 7000 
PLOT РС, РЕ: IF SCRN( рі, P2) = Q 
THEN 1700 
X5 = PEEK ( ~ 16384) - 128: IF XS > 
@ THEN Эйй 
GOTO 1138 
POKE í — 16368),0: ON A GOTO 46d, 
472, 480, 498 
DR = PR ~ 1: COLOR= 9: PLOT РС, РЕ: ММ 
= à: GOTO 710 
PR = PR + 1: COLOR= 9: PLOT PC, РК: ММ 
= à: GOTO 400 


DC = Pt - 2: COLOR= 9: PLOT PC, PR: 
GOTO 76a 
рс = PC + £s COLOR= 9: PLOT PC, РК: 
GOTO 42% 


REM DOWN/UP- SEARCH LEFT/RIGHT 

ІБ  SCRN( (PC ~ 2), РК) = @ THEN 411 
IF SCRN( (PC + 2), PR) = @ THEN 420 
IF а = i THEN 396 

GOTO айа 

REM LEFT/RIGHT-SEARCH DOWN/UP 

IF SCRN( РС, (PR ~ 1)) = à THEN 398 
IF SCRN( PC, (PR + 10) = ü THEN 4@@ 
IF А = š THEN 410 

GOTO 42 

REM TRAPPED (COUNTER) 
A(R) = A 

= (00 - 1) THEN 884 

= 8 THEM 1200 
+ id 
+ 1: IF 00 > = 3 THEN QU = 1 


870 GOTO 3590 
вай IF SCRN( (PC + 2),PR) = 13 OR SCRN 
( (PC ~ 2), PR) = 13 THEN MM = MM + 1 
830 GOTO 83% 
эйе REM USER PIECE/MOVE PER KEY 
91@ KE = PEEK ( ~ 16384) - le 
Эй IF KE = 77 THEN POKE ( - 16368),@: 
БОТО 370 
93@ IF KE = 73 THEN POKE ( ~ 16568), @: 
GOTO 9340 
340 IF KE = 75 THEN POKE ( - 16368), @: 
GOTO itið 
354 IF КЕ = 74 THEN POKE ( ~ 16368),@: 
GOTO 103 
зей CC = ge: GOTO 45@ 
972 IF SCRN( Pi, (P2 + 1)) < > @ THEN 366 
982 GOSUB 71@@: COLOR= й: PLOT Pl, Pe: Pe 
= P + 1: GOTO itm 
390 IF SCRN Pi, (Pe - 1)) ( > ай THEN 36a 
1000 GOSUB 7149: COLOR= €: PLOT Рі, РЕ: ре 
= pz ~ із GOTO 1050 
10412 IF SCRN( ІРІ + 2), рг) < ) @ THEN 360 
1@20@  GOSUR 7100: COLOR- à: PLOT Pi, PE:Pi 
= рі + 2: GOTO 1050 
1450 IF SERN; (рі ~ 2),P2) (5 > @ THEN 962 
1940 GOSUR 7100: COLOR- й: PLOT рі, Pe:Pi 
= Pl ~ 2 
1050  COLOR- 13: PLOT Pi, PÆ:TP = TP ~ 1 
1070 REM USERS MOVES (COUNTER) 
1484 CC = CC + 1: IF CO > = 10 THEN CC = 
A: GOTO 452 
1230 GOTO J00 
1130 CR = CR + 1 
1140 IF CR > = 19040 THEN  GÜSUR 1450: 
GOTO 118й 
11704 GOTO 450 
1180 REM RECHARGE COMPUTER PIECE 
119@  COLOR- 11: PLOT РС, РЕ: FOR C = 1 TO 
200: NEXT 
1200 GOSUB 7200 
121%  COLOR- @: PLOT РС, PR 
ізей  GOSUR i518: GOSUR 345240: GOTO 4568 
1240 REM TRAPPED? 
1250 REM CHECK CHARGE RATE FIRST 
1260 IF СВ» = 325 THEN 128й 
1270 GOTO 123a 
1284 CR = 1900: GOTO 1370 
1290 REM TRAPPED COMPUTER PIECE 
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135900 L = @ 

1310  COLOR- 6: PLOT РС, РЕ: FOR TI = 
1 TO i89: NEXT 

15204  COLOR- 11: PLOT PC, PR:FOR TI = 1 TO Ей 

1340 NEXT 

1350 L = L + 1: IFL < = 2 THEN 1310 

is6a GOTO 1600 

1370 GOSUB 1450 

1386 P = р + 6 

1330 GOTO 45a 

1450 REM MESSAGE 

1460 MG = 1744:M$ = "RECHARGING" 

147@ FOR I = i TO LEN (M$) 

1480 POKE MG, ASC ( MIDS (M$,1,1)) + 128 

14530 MG = MG + i: NEXT 

1495  GÜüSURB 7з3@@ 

1500 POKE MG, 16@: RETURN 

1510 MG = 1744 

ізгі FOR I = 1 TO LEN (MẸ) 

1550 POKE MG, 160 

15424 MG = MG + 1: NEXT 

1550 POKE MG, 160: RETURN 

16404 REM MESSAGE (TRAPPED) 

16ій MG = 1744 

1620 MS = "x TRAPPED жж" 

163@  GOSUR 147@ 

1640 GOTO 1914 

1700 REM USER "BURNED" 

17140 MG = 1744 

i720 M$ = "s USER BURNED ж" 

1730 GOSUB 1478 

1740 REM LEAVE USER POSITION AS-IS 

1750 L = ü:hMhM = a 

1760  COLOR- à: PLOT Pi,Pe: FOR TI = 1 TO 


140: NEXT 

17740 COLOR= 13: PLOT Pi, Pe: FOR ТІ-і TO Sa 

i79@ NEXT s: IF L < = 1 THEN L = L + 1: 
GOTO i76% 

1800 BR = BR + 1: GOSUB 1510: GOSUB 5450 

18180 IF ER > = 6 THEN  GOSUB 1834: GOTO 
1874 

1820 GOTO 445 

i834 L = @ 


1840 REM SOUND 

185а КЕМ SOUND 

1860 HOME : RETURN 

1878 PRINT 

1880 PRINT "YOU'VE BREEN BURNED" ВЕ; "TIMES"; 
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1830 
1900 


1910 
19520 
1930 
1340 
1350 
1360 


1370 
cae 
2@1@ 
ейей 
eua3u 
cua 
casu 
casu 
zig 
eliü 
cic 
213 
2140 


с150 


© © 


По То fü pa TO ny Pú rà rú ny 
Glo Qj DJ GJ GJ DJ Tú PO ró 


^ £ ы FO Dú бш OA 
б Єз 5 (П бо GS бз S S S 


PRINT "SUCKER!'":TP = Q 

PRINT "YOU'RE OUT OF THE GAOME...": 
GOTO zaaa 

REM TRAPPED 

GOSUB 1830 

PRINT "YA GOT ME TRAPPED, TURKEY!!!" 
PRINT "YOUR TOTAL POINTS NOW EQUAL "; 
PRINT TP 

PRINT "YOU MADE A TOTAL OF ";TR ~ Тр; " 
MOVES" 

PRINT "BEFORE TRAPPING МЕ...." 

REM PLAYER ADVANCE/POINTS 

PI(TU) = TP 

IF TU = N THEN 2100 
TU = TU + 1 

PRINT "PRESS RETURN, ";I$ (TU) 

INPUT W#:CLS 

GOTO 72 

REM ALL PLAYED 

REM SORT NUMBERS/PLAYERS 

IF N = 1 THEN 2220 
F = @:AA = 1 

IF PI(AA) > = PI(AA + 1) THEN 2198 
р = PI(AA):PI{AA) = PI(AA + 1) 
PI(AM + 1) = P:I$ = I$(AN) 

ІФ(АЯ) = ІФ(АА + 1) :1Ф(8А + i) = I$ 
F = 1 

IF AA (5 N THEN AA = AA + 1: GOTO 214 
IF F = 1 THEN 2130 

GOTO 2260 

PRINT "YDU' VE PLAYED BY YOURSELF, 
AGAINST" 

PRINT "THE COMPUTER. YOU WERE 
EURNED ":BR 

PRINT "TIMES. FINAL TRAPPING SCORE:" 
;PICU) 

GOTO 2330 

I = 1 

PRINT "BEST TRAOPPER....":I$(I) 

PRINT "TOTAL POINTS="=PI (1) 

PRINT "FOLLOWING ":1#(1) 

FOR I = ë TO N: PRINT 1%(1); 

PRINT " WITH ñ SCORE DF:"; 

PRINT PI(I) 

FOR TI = 1 TO 1000: NEXT TI,I 

PRINT 

PRINT "END DF PROGRAM RUN..... " 

PRINT "UNLESS ALL WANT TO PLAY AGAIN???" 
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FOR I = i TÜ N 


PRINT "IF SO, ТҮРЕ RUN." 


PRINT : FOR TI = 1 TO 1500: NEXT 
PRINT "END" 

END 

REM PLAYERS (NUMBER, NAMES) 

PRINT "ENTER NUMBER OF PLAYERS” 
INPLIT N 

IFN < = @ OR N > = 11 THEN 3351 
PRINT "NOW ENTER THE FIRST NAMES" 


PRINT "OF THE ":N;" PLAYERS" 


INPUT І%(1): NEXT 

PRINT 

PRINT "THE NAME OF THE PLAYER WHO'S 
TURN" 

PRINT "IT IS WILL BE PRINTED AT THE 
BOTTOM" 

PRINT "OF THE GAME BOARD. " 

FOR TI = 1 TO іг00: NEXT 

HOME 

RETURN 

REM PLAYER 
MG = 1616 

FOR I = 1 TO LEN (I$(TU)) 

POKE MG, ASC ( MID$ (I#(TU),1I,1))2MG 
= MG + 1 

NEXT : POKE MG,32: RETURN 

REM INSTRUCTIONS 


PRINT "UP TO TEN PLAYERS САМ" 

PRINT "TRY TO OUTWIT THE COMPUTER AND" 
PRINT "MANEUVER ITS PIECE INTO A 
SITUATION" 

PRINT "WHERE IT WILL BECOME TRAPPED. " 
PRINT "THE COMPUTER'S PIECE WILL LOOK " 
PRINT "LIKE AN ORANGE BLOCK. You, 

THE USER," 

PRINT "WILL HAVE ñ YELLOW BLOCK, " 
PRINT, "THE COMPUTER WILL MOVE ITS 


PRINT "ALL AROUND THE GAME HOARD, 
CHANGING" 


PRINT "DIRECTION WHEN IT SENSES 

AN OBSTACLE. " 

PRINT "YOU WILL FOLLOW THE СОМРОТЕН? 5 
PIECE" 

PRINT "AND TRY TO MANEUVER TT TO ñ 
SECTION" 


PRINT "OF THE GAME BOARD WHERE IT 
WILL БЕ" 

PRINT "“TRAPPED--THAT IS, WHERE ІТ 
CAN ONLY" 

PRINT "MOVE LEFT QR RIGHT." 

PRINT 

INPUT "PRESS RETURN TO CONTINUE"sW$: 
HOME 

PRINT "THE COMPUTER'S PIECE WILL 
CONTAIN А" 

PRINT "CHARGE? ; IF YOU SIMUL TANEOUSLY 
END RT" 


PRINT "THE SAME SPOT, YOU'LL GET 7 


BURNED’. " 

PRINT "SIX 'BURNS' AND YOU'RE QUT DF 
THE" 

PRINT "GAME. YOU WILL MOVE YOUR PIECE" 


PRINT "HY USING THE 'J' AND K? " 
PRINT "KEYS TO MOVE LEFT AND RIGHT, 
AND THE" 
PRINT "+1" 
AND DOWN." 
PRINT "WHENEVER YOU MOVE, THE 
COMPUTER WILL" 


AND 'M' KEYS TO MOVE UP 


PRINT "BLANK? ITS PIECE. YOU WILL 
EE ALLOWED" 

PRINT "ONLY TEN CONSECUTIVE MOVES 

AT ONE " 

PRINT "TIME. WHEN YOU WISH ТО MOVE, 
HOLD" 

PRINT "DOWN THE CORRECT MOVEMENT KEY. " 
PRINT "POINTS WILL BE DETERMINED BY 
HOW" 

PRINT "MANY MOVES IT TAKES THE USER" 
PRINT "TO TRAP THE COMPUTER’S PIECE." 
PRINT "REMEMBER, TO TRAP THE 


COMPUTER'S PIECE," 
PRINT "ONLY ALLOW IT TO MOVE LEFT 


AND RIGHT." 
INPUT "PRESS RETURN TO START: "ИФ 
HOME : RETURN 
ZZ = INT (17 ж PND (1) + Ей) 
RETURN 


POKE 769, 25 
POKE 770, 25 
POKE 768,1 
CALL 771 
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RETURN 
POKE 769,93 
POKE 770,5 

POKE 768,1 

COLL 77i 

RETURN 

FOR xü = 130 TO 
IF XQ > 254 THEN XQ = 
POKE 769, XQ 

РОКЕ 770,6 

POKE 768, 19 

CALL 771 

NEXT 

RETURN 

FOR XQ = 1 TO 4 

769, 2a 

770,4 

768, 5 

771 

763, 56 

770,5 

768,5 

771 


270 STEP 2a 
edil 


RETURN 


Elevator for the Apple 11 


12 
20 


Au 


REM PROGRAM TITLE: ELEVATOR 


P = 20: HOME 


DIM F(6@),F$(6@), GS (60) 
DIM KO0(6U00 


HTQE 10: PRINT "*** ELEVATOR же" 
PRINT 

PRINT "INSTRUCTIONS REQUIRED 4Y/ND"; 
INPUT I$: IF I$ = "N" THEN N = 1 
INPUT "FIRST NAME: ";N$ 

PRINT : IF N = 1 THEN 22й 

INPUT "PRESENT OCCUPATION: ";P$ 

GOSUB 2150: HOME 

PRINT "YOU HAVE JUST BEEN FIRED AS а "; 
PRINT p$s"'!" 

PRINT "BUT, YOU ARE IN LUCH. I HAVE JUST" 
PRINT "HIRED YOU TO BE ñN ELEVATOR" 
PRINT “ATTENDANT IN MY COMPUTER-" 
PRINT "IZED DEPARTMENT STORE. " 

PRINT "YOUR JOB WILL BE SIMPLE,” 
PRINT N$;". ALL YOU HAVE TO DO " 
PRINT "IS REMEMBER WHAT IS CON-" 
PRINT "TAINED ON EACH OF SIXTEEN” 
PRINT "FLOORS SO THAT YOU CAN TAKE" 
PRINT "ALL OF MY CUSTOMERS TO THE" 
PRINT "RIGHT LOCATION..." 

PRINT 

PRINT 

REM WHAT’S ON EACH FLOOR? 

FOR I = 2 TO 19: READ F$41): NEXT 

IF N = 1 THEN 574 

POKE ( ~ 16368),0: GOSUB 2150: HOME 
PRINT "I ALMOST FORGOT TO TELL 
YÜLI--THE" 

PRINT ‘CUSTOMERS, WHEN STEPPING ONTO 
PRINT “ELEVATOR, WILL TELL YOU WHAT 
THEY ARE" 

PRINT "SHOPPING FOR. THEY WON'T TELL 
you" 

PRINT "ABAIN, BUT FOR EVERY CUSTOMER 
YOU PLACE" 

PRINT "ON THE RIGHT FLOOR, YOU? LL. 

RE PAID” 

PRINT "Фій.00. THAT WILL BE YOUR ONLY 
WAGE!” 
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PRINT "CUSTOMERS WILL BE GETTING QN 
AND OFF" 
PRINT "THE ELEVATOR AT DIFFERENT STOPS, 


PRINT “YOU WILL NEED TO REMEMBER 
THESE, ТОП," 

PRINT N$;"!" 

POKE ( ~ 16368),@: GOSUB 2154: HOME 
PRINT "HERE ARE THE FLOORS AND 
CONTENTS :" 

FOR I = ë TO 16 

PRINT 1") "yF% 1); 

IF I = 8 THEN TT = I ж аай: PRINT : 
GOSUR 2194 


IF I> = AND I ( = 5 THEN 44 
IF [ ) = & AND I ¢ = ій THEN PRINT 
: GOTO 470 

IF I} = 11 AND I < = 14 THEN 45a 
IF 1» = 15 AND I ( = 16 THEN 462 
PRINT " "sF#(17): GOTO 47ü 

PRINT " ";F&(18): GOTO 470 

PRINT " "F$ (13) 

IF RX = 1 THEN RETURN 

NEXT 

REM VARIABLE RX FOR PRINT ELEMENTS 


FOR I = 1 TO G: PRINT : NEXT :TT = TT 
+ EQ 
GOSUR 2190: HOME :C = g:GK = й 
PRINT "YOU SHOULD BE ALL SET, "МФ 
Ti = TT — gð: GOSUB Zi9XO:RX = і 
НЕМ GET CUSTOMERS 
C = INT ( RND (1) ж 1й + 1) 
PRINT N$;", YOU NOW HAVE "C; 
CUSTOMER (8) " 
PRINT "GETTING ONTO MY ELEVATOR. " 
REM GET C RESPONSES 
I = 1 
REM FLOOR NUMBER 
F = INT ( RND (1) # 14 + 2) 
F(I) = F:I = I + 1 
IF I ( = C THEN 5390 
REM FLOOR TITLES 
FOR IT = 1 TO C 
G5,I) = ҒФІР(І») 
KO(F{I)) = KDOF (1202 + 1 
NEXT 
GOSUR 21390: PRINT 


670 PRINT "THE CUSTOMER’S DESTINATIONS:" 
БЕ = i 

вай PRINT : FOR I = FL TO C 

692 PRINT G$(I);""; 

Таа F = F(T) 

710 IF F >} = 2 AND F < = 5 THEN 760 

72% IF F > = 11 AND F < = 14 THEN 770 

730 IF F > = 15 AND F ‹ = 16 THEN 784 

740 PRINT " FLOOR" 

73% NEXT : GOTO 730 

766  GOSUR 44490: GOTO 750 

774  GOSUR 45a: GOTO 750 

7800  GOSUR 464: GOTO 750 

794 GOSUR 2154 

вий HOME 

Вій PRINT "PRESS (LD FOR (UP" 

Bet PRINT "PRESS (D> FOR (DOWN? ” 

asd PRINT "THEN ENTER THE FLOOR NUMBER" 

Вай NN = @: REM DIRECTION 

850 POKE ( ~ 16368),@: GOSUB 216й 

B6@ D = A: POKE ( — 163568),й: IF D = 85 

THEN D$ = "UP": GOTO 874 

865 IF р = 66 THEN D$ = "DOWN": GOTO 870 

B68 GOTO 350 

8724 PRINT "DIRECTION: “pẹ 

аай PRINT "FLOOR NUMBER": 

890 INPUT FR 

B93 VTAB le: НТАВ 15:PRINT "PLEASE WAIT...” 

895 IF FR = 1 AND TF = à THEN izag 

94a IF FR < 1 OR FR > 16 THEN айд 

245 IF FR = TF THEN 1288 

3910 IF FR < TF AND D$ = "Up" THEN ігбй 

915 IF FR > TF AND D$ = "DOWN" THEN V = i: 
GOTO ize 

gra  GOSUR 21940: HOME : REM PAUSE BEFORE 
START 

930 IF D$ = "UP" THEN 570 

Зай IF D$ = "DOWN" THEN ida 

2o4 PRINT "SELECT A DIRECTION, "sN$;"!''" 

964 PRINT : GOTO 810 

374 REM UP 

280 IF TF > = 17 THEN 1й3й 

ээй GOTO 135йй 

lag PRINT "YOU АБЕ ON THE "5T$3:" FLOOR, 
"INS 

1410 PRINT "YOU CAN NOT GO ANY "iH$;"!!" 

Laz GOTO 360 

1050 T$ = "TOD'":H$ = "HIGHER": GOTO 1000 
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1040 IF TF < = 1 THEN 1060 

1850 GOTO 1979 

1060 T$ = "HOTTOM":H$ = "LOWER": GOTO 1020 

1070 REM DOWN CONTINUED MOVEMENT 

1080 FS = P + B:NN = із IF FS > 2@ THEN FS 
= 20 

1085 IF P) = 20 THEN GOTO 119й 

1090 УТАВ P: HTAR ZQ: PRINT FF 

110404 FOR T = 1 TO 40: NEXT 

1118  VTRB P: HTRE 20: PRINT " ":P = P + 1 

1120 IF P < > FS THEN 1885 

1130 REM CONTINUE IF NOT ON FLOOR 

1140 IF TF < » FR THEN 1160 

1150 GOTO 1508 

1160 FS = FS + 7 | 

1170 IF P) = gà THEN 1130 

1180 GOTO 1094 

1190  VTAB P: НТАВ 

1800 FS = B + B:FF 

10 GOTO 1090 

“А REM NOT amr rT Thi JA? om ry PAP PS ES ZA hed 

й REM NOT USED IN APPLE PROGRAM 

à IF NN = 1 THEN 1100 

a 

ü 


: PRINT " ";p = 4 
FF ~ 1:TF = TF - 1 


iz ut 


GOTO 1520 

PRINT "IF WANTING TO GO ";D$;", USE A” 
265 IF V = 1 THEN V = @: PRINT "USE ñ 

1270 PRINT "HIGHER NUMEER THAN THIS FLOOR" 
1275 GOTO 129 

1280 PRINT "YOU ARE ON THAT FLOOR," sN$;"!!" 
1292  GOSUB 2190: GOTO Baa 

1300 REM UP MOVEMENT 

1310 IF TF = à THEN 1462 


Ea de ғаға Ra F+ 
(бз po Pa pa Pa ni 


I 


1320 FS = P - 8: IF FS ( = 4 THEN FS = 4 
1328 НЕМ NOT USED IN APPLE PROGRAM 
1330 IF P ( = 4 THEN GOTO 14832 


1355 ЧУТАВ P: HTAR ZG: PRINT FF 
i344 FOR T = 1 TO Sg: NEXT 


13540 VTAR P: HTAR ZU: PRINT " "ро = B 1 
1360 IF P < >` FS THEN 1325 

1574 REM CONTINUE IF NOT ON FLOOR 

1380 IF TF << › FR THEN 1400 

1599 GOTO 1500 

140й F5 = FS - 7 

141% IF P ¢ = 4 THEN 1430 

1420 GOTO 1325 

1430 VTAR P: HTAB ZU: PRINT " "sp = 2@ 
1440 FS = P ~ B:FF = FF + ТЕ = TF + 1 


14508 GOTO 1525 
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1460 ' 


1470 
1500 
1519 
150 
1530 
1540 
1550 
1560 
1572 
1580 
1530 
160 
16112 
1624 
1630 


1642 
1650 
1668 
1670 
1680 
1630 


170 


1710 
1720 
1730 
1740 
1750 
1760 
1770 
1775 
1780 
172920 
2/99 
1800 
1810 
1815 


jazua 
18350 
1840 
1850 
1860 
1865 
187й 


IF = 1:P = ІШЕР = 1 
FS = P — 7: GOTO 1525 
REM ON FLOOR REQUESTED 
REM NOT USED IN APPLE PROGRAM 


МУТАН P: HTAB cia: PRINT FF: GOTO i540 


УЧТАН P: HTAR EQ: PRINT "1"; 

FOR I = 1 TO C 

IF FR = FCI) THEN 1370 

NEXT sKOCFR) = KOCFR) ~ KG: GOTO 16@@ 
РА = PA + 14:KG = KG + 1 
Е(1) = ХХ = 1 

GOTO 1560 


REM DID CUSTOMERS WANT OFF HERE? 
IF XX = à THEN 1632 
XX = @: GOTO 1771 


PRINT N$;", NO CUSTOMERS WANTED TO 

GET OFF" 

PRINT "ON THIS FLOOR... "МЕ = NC + 1 
REM MORE CUSTOMERS STEPPING ОМ 

IF FZ = i OR FR = 1 THEN AA = 1:Е7 = à 
IF AA = 1 THEN 1694 

GOTO 1730 
YU = INT ( RND (1) * 5 + 10:YY = СЕС = 
C + YUrCe = YU 

ТЕС» = іЙ THEN HV = 1:0 = C - Ce: 
GOTO 1750 

REM GET DESTINATIONS 

GOTO 1800 


REM CONTINUE IF NOT FINISHED 


HG = @: IF GK? = C THEN 1940 
GOSUB 21940 

GOTO 804 

KG = KG + HOKXFR) sKOCFR) = й 


PRINT Кб;" CUSTOMERS JUST" 
PRINT "STEPPED OFF MY ELEVATOR, "3 
PRINT N$;"!'": GOSUB 2704 
GK GK + KG 
REM YY MORE DESTINATIONS 
YU ABS (C — YY): IF GK >C THEN 1940 
IF YU 4 à THEN PRINT "NO ONE GOT 
DN, "s GOTO 23a 
PRINT N$;", YOU JUST HAD "s;YUs;" MORE" 
PRINT "CUSTOMERS STEP ONTO THE" 
PRINT "ELEVATOR. THE DESTINATION(S) s” 
KG = A: PRINT : FOR I YY + 1 TO Ü 
F = INT í RND (1) к 16 + 1) 
TF THEN 1860 
і THEN ЕФ(1) 


— 
— 


— 
~~ 


Ho 


"GROUND" :FZ = i 


$s 
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1875 KO(F) = КО(Е) + 1 

1880 F(1) = F: NEXT : REM FLOORS 

1890 НЕМ TITLE OF FLOORS 

1900 FOR I = YY + 1 TO C 

1918 G$(I) = F$(F(I)): NEXT 

1920 FL = YY + 1 

1930 GOTO 6ай 

1940 REM STOP/CONT 

195@ PRINT : PRINT "YOU HAVE NOW 
COLLECTED: " 

196@ PRINT "$"sPA: PRINT : GOSUB 2190 

1965 PRINT : GOSUB гай 

1970 IF JV = 1 DR GK) = C THEN 1390 

1384  GOSUB 2190: GOTO 800: REM ALL NOT OFF 

1990 PRINT : GOTO 2300 

2000 REM DATA FOR FLOORS 

2010 DATA WOMENS, MENS, CHILDRENS, INFANTS 

Zaza DATA TOYS, CARPETS, COMPUTERS 

газа DATA APPLIANCES, FURNITURE, HARDWARE 

2242 DATA HORRY, AUTO, OFFICE 

ease DATA BATHROOM, BEDROOM 

Z060 DATA CLOTHES, SUPPLIES, ITEMS 

2070 REM DATA ELEMENT 17 WILL BE USED 

2080 REM WITH ELEMENTS 2-5 

2090 REM DATA ELEMENT 18 WILL BE USED 

Zig REM WITH ELEMENTS 11-14 

2110 REM DATA ELEMENT 19 WILL BE USED 

2120 REM WITH ELEMENTS 15 & 16 

21850 PRINT : PRINT "PRESS A KEY...” 

P160 A = PEEK ( - 16384) - іг8 

2174 IF A < = 38 THEN 2162 

2180 POKE ( ~ 16368),@: RETURN 

2190 REM TIME LOOP 

220a FOR T = 1 TO TT: NEXT 

2210 GOTO 2184 

2304 НЕМ CONTINUE? 

2310 PRINT "WOULD YOU LIKE TO TAKE ON" 

2322 PRINT "SOME MORE CUSTOMERS, ";N$;"2" 

2350 PRINT "YOUR TOTAL EARNINGS SO FAR:": 

2340 PRINT "$"; Bñ; 

Z350 INPUT Ag 

2360 IF АФ ( > "Y" AND AS ( ) "YES" THEN 
EA 

2370 TT = 2@0@:JV = Q: PRINT 

2380 PRINT "YOU ARE Ом FLOOR ";TF 

2392 FOR I = i TO 16:KP = KP + КОСІ): 
NEXT : IF KP ) @ THEN GOTO 1730 

2395 NC = @: GOTO 49a 


CH ccn cn ch cl 


7 


r ToO Pit pa Го po no ro no 


PRINT 
PRINT "END OF ELEVATOR" 
END 
REM POINT SCALE/PAY DEDUCTION 
IF NC < = à THEN NC = @: RETURN 
PRINT "YOU MADE" МС" STOPS THAT WERE" 
PRINT "NOT NECESSARY, "sN&:". YOU" 
PRINT "WILL TAKE A DEDUCTION IN PAY” 
PRINT "OF $2. 00 FOR EACH ONE OF" 
PRINT "THOSE STOPS, TOTAL”; 
NN = NC ж ой: PRINT "$" ;NN 
PRINT "LEAVING YOU "; 
РА = FA — NN 
NC = @ 
PRINT "$"53PA: GOSUR 2190 
RETURN 
REM ANY TIPS? 
IF KG ( = 1 THEN RETURN 
AR = INT ( RND (1) * & + 1) 
IF AA = 1 THEN RETURN 
TI = INT ( RND (1) ж 1@й + 1) 
РА = PA + TI 
PRINT 
PRINT “YOU? RE IN LUCK, "sSN#s", A” 
PRINT "NICE CUSTOMER JUST GAVE " 
PRINT "YOU A TIP OF"; 
PRINT "$";TI 
GOSUB 2190: RETURN 
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Farewell for the Apple Il 


10 
eu 
29 
3A 
33 
ий 
45 
Ju 
e 
ed 
бз 
7@ 


75 
ae 
a3 
Эд 


F+ + қ 
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REM PROGRAM TITLE: FAREWELL 


HOME 
PRINT 
INPUT 


HTAR 12: PRINT "sx FAREWELL жен" 


"NUMBER PLAYING (51-100 "5A 


IF A (1 OR А >} 18 THEN 85 


PRINT 
FOR I 
INPUT 
PRINT 
PRINT 
INPUT 
IF ХФ 
сій 

PRINT 
PRINT 
PRINT 
PRINT 
STUDY 
DRINT 


"THE "Аз" PLAYERS’ 
= 1 TOA 

0%(1): NEXT 

aU = i 

"ANY OF YOU NEED TO SEE" 
"THE INSTRUCTIONS? "s X5 

( › "Y" OND X$ ( > "YES" 


FIRST NRMES:" 


THEN 


"READ CAREFULLY, IT COULD MEAN" 
"YOUR LIFE (OR THE GAME!!).. 
"EACH PLAYER WILL SEE AND 

ñ" 


"MATRIX OF 6 BY 5 SQUARES 


(POSITIONS) ” 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"THESE WILL RANGE FROM THE " 
"LETTERS A THROUGH Z WITH" 
"FOUR SPACES АМК, TO PLAY:" 
"THE COMPUTER WILL SELECT FIVE" 
"POSITIONS AND PLACE COBRRAS” 
"WITHIN EACH. THE COMPUTER WILL" 
"SHOW YOU WHERE THREE DF THE 


CORRAS АКЕ" 


PRINT : INPUT "PRESS RETURN, PLERSEs";X$ 
HOME 

PRINT "NOW THE COMPUTER WILL. SELECT А" 
PRINT "POSITION AND FLASH AN ASTERISK" 
PRINT "THERE. EACH PLAYER MUST ENTER 
FROM" 

PRINT "MEMORY THE NUMBER WHICH WAS IN 
THAT" 

PRINT “POSITION. IF CORRECT, THE PLAYER" 
PRINT "GAINS 100й POINTS; IF INCORRECT, 
THE" 

PRINT "PLAYER LOSES 100% POINTS. AND.. 
«ІР YOU" 

PRINT "SELECT A POSITION WHERE 

THERE'S A" 

PRINT "COBRA... YOU'RE ОИТ OF THE GAME, 
DEAD!" 


192 PRINT "SELECTION WILL CONTINUE FOR AS 
LONG AS" 

195 PRINT "EACH PLAYER WANTS OR UNTIL 
TWENTY-ONE" 

DRINT "POSITIONS HAVE BEEN ELIMINATED. ” 
INPUT "PRESS RETURN, PLEASE: "sX#: 
GOSUB 220 

HOME : GOTO 3aa 

DIM L$(3i), PR(31), PC(B1),L¢31) 

REM LETTERS? 

IF SL ( > 0 THEN PRINT “ARRANGING 
LETTERS..." 
L = 65:1 = 1:PZ = i000 
L$ (1) СНАФ (L):L(I) = I 

IF І = 27 THEN 255 

[ = 1 + ізі = L + 1: GOTO 235 
54 GOTO 235 

255 REM SORT LETTERS RANDOMLY 
26a J = 1 

265 N = INT ( RND (i) * (I — 1) + 1) 
27@ IF L(N) = à THEN 265 

275 L$(J) = CHRS (N + 64) 
280 L(N) = @:J = J + 1 


ғ 


re 
б 
ІЛ 


п 
+ 
= 


ro fe n rmi 
ro fa TG Ce 
fp ІЛ m cn 


H d 


2859 IF J = I THEN RETURN 

сэй GOTO 262 

saa REM POSITIONS 

3505 РС = S:PR = 5:1 = 1:PL = PR + о д] = 
i:PK = PC 

310 PRODI) = PRsPC(I) = PC:L (T) = I 

315 PC = PC + 6:1 = I + isJ = j + 1 

Sca IF I = 27 THEN 343 

325 IF J = 7 THEN 335 


344 GOTO 314 

345 REM THE REMAINING FOUR 

Зей L$OI) = " "sBR(I) = PREIBCOD = РСЦ (1) = I 
355 PC = PC + 6:1 = I + 1 = jJ + 1 

360 IF J = 7 THEN 378 

365 GOTO 3354 

370 REM MOVE THE FOUR BLANKS 

375 I = 1:J = ізі = Z7 

38d N = INT ( RND (1) * £6 + 1) 

385 IF L(N) = à THEN 38 

390 ЕФ = LS$(OND:LSOND = LCL) 

395 L$(L) = F*$:L (N) = й 
4QQ | = L + i: IF L = 31 THEN 410 
405 GOTO 384 
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cn £n cn Cn cn cn 
Gi GJ Dà à Tü e 
п © cn Gi @ cn 


REM NOW PRINT LETTERS 

HOME : FOR I = 1 TO зӣ 

VTAB PR(I): HTAR PECI): PRINT L(I): 
NEXT 

REM FINAL GRAPHICS 
Х = ë 

FOR Y = 4 TO 13 

VTOE Ys: HTOER X: PRINT "@" 32s NEXT 
X = X + © 

IF X >) = 49 THEN 460 


z TQ 38 
УЧТАН Y: HTñE X: PRINT "ü";;: NEXT 


' THEN 290 
IF Y = £ THEN 49ü 
GOTO 462 
REM COBRA POSITIONS/PLAYER 
C = 1: VTOB 18: НТАВ 5: PRINT "PLAYER: 
"Q$ (U) s 
М = INT ( RND (1) ж (1 — 5) + 1) 
IF L(N) = ü OR L(N) = 1@@ THEN 5@@ 
CB1(C) = PR(N) sCBRE(C) = PE(N):F$ = 
L$(N):C$(C) = ЕФ 


( 


L$XON) =  CHR$ (де): (М) = 1@@ 
IF C = 5 THEN S56 
IF C < = 3 THEN 60508 S37 
C = C is GOTO Saa 


XX = Q: REM DEFINE 3 (1 FOR COMPUTER) 
VTAR PR(OND: НТАВ РСМ) : PRINT ФЕМ) зз 
FOR T = 1 TO ig: NEXT 
VTAR PRIN): НТАЕ PC N): PRINT " "a3; 
FOR T = 1 TO Sú: NEXT 
VTAB PR(OND : HTAR РС(М): PRINT F$; 

IF АА = ñ THEN XX = XX + 1: GOTO 535 
RETURN 
REM | COMPUTER SELECT/IF NOT DONE 


IF SL > = 22 THEN ima 


МТАВ 16: HTAB S: PRINT "I WILL SELECT 
A POSITION:" 
N= INT < RND (1) * (L — 1) + 1): 
BOSUR 124 
IF L(N) = ü DR L(N) = 1@ü THEN 590 
ЕФ = L#(N): IF SL = í THEN  GOSLUB 5350 
C$ = FS$:NU = N: GOSUE 1300; GOSUB іста 


N 


VTAR 16: HTAR 5: PRINT "SELECT A 
POSITION BY LETTER ONLY, "; 

VTAB 17: НТАВ 5: PRINT Q$(U) 
INPUT L$ 

GOSUR 1240: GOSUR ic@a 

= 1 

IF L$ = L$(tI) THEN 665 


I = I + 1 


IF 1 › = 31 THEN 675 
GOTO 635 
= I:F$ = L$: GOSUB 53a 
GOTO 800 
REM COBRA POSITION OR BLANK 
GOSUB 1200 
GOSUR 1200 
FOR I = 1 TO 5 
IF 1% = C$(I) THEN 735 
NEXT 
МТАВ 16: НТАВ 5: PRINT "YOU CANNOT 
SELECT ñ BLANK!!" 
GOSUB 1240: GOSUB 1200: GOTO 610 
REM COBRA 
VTAB 16: HTAER 5: PRINT "YOU'RE DEAD, 
"рф (Цу рта" 
УЧТАН 17: НТАВ E: PRINT "THAT IS А 
COBRA POSITION!!!" 
УТАВ 18: НТАВ 5: PRINT "жж FAREWELL жж” 
: GOGUR 1240 


ZZ = is БОБОВ 1200: GOTO 12020 


GOSUR 1240: GOSUB 1200: IF L$ ( ) СФ 
THEN 90 

УТАВ 16: HTAE 5: PRINT "CONGRATULATIONS 
праф) р." 

VTAB 17: HTAR 5: PRINT "YOU'VE JUST 
GAINED ";PZ; 

PRINT "POINTS!!" 

GOSUB i244: GOSUE 1200 

REM PINTS/CONTINUE 


WCU) = WiU) + PZ 


VTAR PR (NU): HTAR PC (NU): PRINT " "sg 
МТАВ 19: HTABR EQ: PRINT "TOTAL POINTS: 
"sWOD 

3 


GOSUR 1244: БОБОВ 12й@ 

МТАН 16: НТАВ 5: PRINT "YOU NOW HAVE 
"МЕШ р POINTS...” 

МТАВ 17: HTAB 5: PRINT "...CONTINUE 
(Y/N)"3 
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855 
дей 
865 
Эйе 
245 


310 


315 
Эй 


Эсе 


330 
1@@@ 
10045 
1210 


1015 
lucu 


1025 
14354 
1453 
LAGA 
1045 
1050 
1055 
1460 
11040 
1105 
1110 
1119 
11520 
11295 
1130 
1135 
1200 
1210 


INPUT X$: IF X$ = "N" THEN 1020 
SL = SL + 1:L (NU) = @:L (Nu) = " ” 
GOTO 575 

REM WRONG POSITION 

МУТАН 16: НТАВ 5: PRINT "WRONG 
POSITION, "{0%(И) 

VITAE 17: НТАВ 5: PRINT "YOU ARE NOW 
MINUS "s:DZ; 

PRINT " POINTS...": GOSUB 1240 

GOSUB ігйй:А (03 = W(U) — PZ 

УТАВ 19: НТАВ ZQ: PRINT "TOTAL POINTS: 
" s QD 

GOTO 610 

REM FINAL/ANOTHER PLAYER 

GOSUB 124@: GOSUB izaa 

УТАВ 16: HTAR 5: PRINT "THAT'S IT, 
"sG$D s". YOU! VE" 

УЧТАН 17: HTAB 5: PRINT "REACHED THE 
LIMIT..." 

VTAEB 18: НТӘН 5: PRINT "PRESS RETURN, 
PLEASE:": 

INPUT X$: HOME 

IF ZZ = 1 THEN ZZ = à: GOTO i840 
T(U) = WCU) 

= U + 1: IF ñ ¢ U THEN 11604 


PRINT G$(U)3", YOU ARE NEXT..." 
PRINT "PRESS RETURN WHEN RERDY:"; 
INPUT X$: HOME 

GOSUB #25: GOTO 300 


REM FINAL/SCORE RESULTS 


PRINT "PLAYERS AND POINTS:" 

FOR I = 1 TOA 

PRINT Q$(1);5" TOTAL POINTS: "iT(DD 
NEXT 

DRINT 

PRINT "PROGRAM TERMINATED...” 

END 

REM CLEAR PRINT AREA 

VTAB 16: НТАВ 5: FOR X = 1 TO 35: 
PRINT " "s: NEXT 

УЧТАН 17: HTABR 5: FOR X = 1 TO 35: 
PRINT " "s: NEXT 

RETURN 

REM TIME DELAY 

FOR TI = 1 TO 1200: NEXT 

RETURN 

REM FLASH SELECTION COURSE 

FOR I = 1 TO NU 


1310 
1315 
132@ 
1325 
15350 
1335 


IF L$(I) = "ж" 


ЧТАв PRII): 


НТАЕ PC (I): 


DR L$(I)=” 


PRINT "ж; 


FOR TI = 1 TO 10: NEXT ТІ 


МТАв PRCT): 
NEXT I 
RETURN 


HTAB PCI): 


PRINT L(I); 


" THEN 133% 
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Insomnia for the Apple Il 


A 


I 


W 


REM PROGRAM TITLE: INSOMNIA 

CLEAR s HOME 

PRINT “INSOMNIA” 

PRINT 

PRINT "SO YOU ARE HAVING PROBLEMS” 
PRINT "SLEEPING? JUST SIT BACK, KEEP” 
PRINT "YOUR EYES ON THE SCREEN AND" 
INPUT "PRESS RETURN: "ХФ: HOME 

= ОЙИ = ñ 

PRINT : HTAR As PRINT "z"; 

HTAR A — 1: PRINT "з": HTABR ñ + 1: 


PRINT "zi"; 

= INT (5 RND (1) * 241) 
IF І = 1 THEN 160 

IF A> = 53 THEN 170 

= А + č: GOTO 18 

IF A < = ið THEN 158 

= я — č 

= W + i: IF Ы = 15 THEN ss 
IF W = 700 THEN zi 

GOTO 1@й 

IF W < = 800 THEN #3й 
GOTO 254 

PRINT 

= W + is GOTO 21a 


PRINT "GETTING SLEEPY NOW?" 
FOR I = 1 TG Ws NEXT 
IF W < = 814 THEN гэй 
GOTO saa 
PRINT s = W + із GOTO £72 
FOR X = 1 TO 40 
МУТАН i: HTAR Xs: PRINT "Ge": VTAR 53: 
HTHE X: PRINT "Gg": NEXT 
FOR X = 1 TO 23 
VTREB X: HTAR i: PRINT "ime"; VTHR X: 
HTAR 4: PRINT "i": NEXT 
FOR I = 1 TO W: NEXT :W = @: GOTO айй 
VTAB 16: HTAR Ей 
PRINT "HEEP EYES HERE!" 
GOSUR 6&uu 
GOTO 192 
= SB:AR = 2:80 = ШАН = сш = 68Ү 
= AR 
FOR I = AC TO AC + L 
VTAR AR: HTAR I: PRINT "x"; 


Az = 
Ai = 


РС = 


VTAR XR: 


NEXT 


VTABR AR: 
VTA XR: 
AR = 


AR 


HTAB "aen 
FOR I = 
HTAB I: 
нтав 
+ i:XR 


I + 4: PRINT 
ас TD AC + L 
PRINT " "; 

+ 4" PRINT U "rg NEXT 

XR ~ 1: IF BR = 12 


НЕ 


THEN 53й 


IF XR 


= Y THEN 50 


GOTO 410 


IF W < 


GOSUE 


= W + 1: 


= SM THEN Зей 
eb: GOTO bid 


IF W s THEN 50508 Sad 


лыш 
C ol 


GOTO 4йй 


IF W > 


1 THEN 4882 


VTQR BR: НТАВ ій 


PRINT 
GOSUR 


"STARE AT THIS LOCATION”; 
Ga 


GOTO 48 


PRINT 
FOR I 
HOME 

PRINT 
PRINT 
PRINT 
GOSUEB 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUEB 
PRINT 
PRINT 
PRINT 
INPUT 


HOME : 
Y = ZU: FOR X = 
VTRE X: 
PR = X:PC = 


GOSUB 
FOR X 


VTAR X: 
= і THEN 5238 


IF 1 
FOR X 


VTAB X: 


NEXT 
GOSUB 


AR - 5: 
AC + 25: 


IF AR < = й THEN AR = 1 
IF Al > = 48 THEN Bi = 
"NOW FOLLOW THE BARS”; 

= 1 TO іййй: NEXT : RETURN 


4121 


"TF YOU ARE NOT GETTING SLEEPY” 
"RY NOW, YOU'RE A HOPELESS” 
"COELI 

Gui: PRINT 

"THIS IS THE LAST PHASE OF" 
"INSOMNIA. ІР IT FAILS, RUN" 
"THE ENTIRE PROGRAM ONCE” 
"AGAIN..." 

Gud: PRINT 

"KEEP YOUR EYES ON THE MOVING” 
"BLOCK, THINKING TO YOURSELF" 
""I AM GETTING SLEEPY....7" 
"PRESS RETURN: "sX¢:W = @ 

PC = PC + 3 

6 TO 9 

HTAR PRINT 
zu 


Y: "@@": NEXT 
11@@ 

= 6 TO 9 
HTAR Y: 


PRINT " "s NEXT 


= 6 TO 9 
HTAB Y: PRINT "ае": У = Y — j: 


1120 


PC - 6 
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878 
вай 
gaz 
FAQ 


310 
Эгей 
33u 
94u 
35 


зей 


365 
370 
3980 
330 
luu 
1й1@ 
Lae 
LASA 
10414 
1450 
1050 


io? 
1480 


1890 
liu 
1143 
1110 
1120 
1155 
1150 
1150 
1155 
1162 
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GOSUE ila 
Y= gU 
FOR X = 6 TO 3 
VTAB X: HTAR Ys PRINT " soy cem c е 
i: NEXT 
GOSUB 112й 
Z із GOTO 760 
GOSUE 1120 
FOR X = 6 TO 5 
УЧТАН X: HTAB Y: PRINT "GG"z:Y = Y + 1: 
NEXT 
PC = PC + 5: VTAR PR: HTAR PCs PRINT 
#1 TIE) H 
VTOQR PR + i: НТАВ PC: PRINT "йе" 
Y = тё: FÜR X = 6 TO 9 
VTOB X: HTAR Y: PRINT " ч 
Y = Y + ds NEXT 
GOSUR lice 
W = W + i 
IF W = 5 THEN 1050 
TF W = Ba THEN 11580 
Z = A: GOTO 760 
FOR X = 12 TD 27 
МТАНВ 6: HTAB X: PRINT "іа": VTAR ics 
HTAB X: PRINT "ms NEXT 
FOR X = 6 TO 11 
VTAB X: HTAH i2: PRINT "ін"; VTAB X: 
HTAR Z7: PRINT "im": NEXT 
GOTO 1830 
МУТАН PR: HTAR PCs: PRINT "m" 
VTAB PR + 1: HTRE PC: PRINT "іші" 
RETURN 
VTABR BR: HTAR рс: PRINT "  " 
VTOB PR + i: HTAR PC: PRINT " " 
RETURN 
REM END OF РКООНАМ 
МТАВ 6: HTAB сй: PRINT "в" 
БОТО 1168 REM CONTINUGUS LOOP AT END 


Rainy Daze for the Apple Il 


10 
eu 
3u 
4i 


sQ 
e 
65 
7ü 
80 


эй 
іда 
11ü 
1с 
1:50 
140 
150 
160 
170 
180 
130 
cuu 
ciu 
ccu 


c 30 


I 


REM PROGRAM TITLE:RAINY DAZE 
HOME 

INPUT "INSTRUCTIONS? "A$ 

INPUT "HOW MANY PLAYERS? ";P: IF P = Q 
THEN 4й 
PRINT "THE ":P:" PLAYERS’ INITIALS: "; 
IF P) = 11 THEN 2a 
FOR I = 1 TO P 

INPUT N$(1): NEXT 

IF АФ < > "Y" AND AS ( ») "YES" 

THEN 340 

REM INSTRUCTIONS 

PRINT "THIS PROGRAM IS DESIGNED TO" 
PRINT "HELP YOU THROUGH YOUR WORST" 
PRINT "DAYS, BY MAKING THEM WORSE!!" 
PRINT "ACTUALLY, THIS PROGRAM WILL” 
PRINT "TEST YOUR ABILITY TO FOLLOW" 
PRINT "NUMBERS, SOMETIMES IN SEQUENCE. " 
PRINT "THE NUMERALS 1 THROUGH 66@ WILL” 
PRINT "RACE ACROSS AND FILL THE VIDED.” 
PRINT "WHEN à NUMERAL APPEARS THAT IS" 
PRINT "NOT SUPPOSED TO BE THERE, HOLD” 
PRINT "THE RIGHT ARROW KEY FOR A SHORT" 
PRINT "TIME UNTIL THAT NUMERAL IS" 
PRINT "BLOCKED OUT." 

PRINT 

PRINT 

INPUT "RETURN" ; ХФ 

HOME 

PRINT "POINTS WILL BE GIVEN ON 

THE BASIS” 

PRINT "OF HOW MANY DUT-OF-SEQUENCE 
NUMERALS” 

PRINT "YOU HAVE DETECTED AT THE END OF” 
PRINT "THE COUNT, 662. " 

PRINT "REMEMBER TO KEEP GOOD EYE CONTACT” 
PRINT "WITH THE SCREEN... "3: PRINT 

= 1 

IF P = 1 THEN 396 


PRINT МФС) з", 


YOU WILL NOW РАУ: " 


INPUT "PRESS RETURN, PLERSE:" : X$ 
GOTO 410 
PRINT "WHEN READY, ";N$(P);", PRESS" 
INPUT "THE RETURN HKEY:":X$ 
HOME :N = @m:N1 = @:TT = Süd 
AR = 1:АС = 1:AR = АС:М = Зӣ = 2:6 = A 
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К = 


PEEK ( - 
16368), @: GOTO Sou 
VTAB AR: HTARB AC: 
FOR T = 1 TO TT + 


16384) 


- 128: POKE ( - 


PRINT N; 
TT 


NEXT «АС AC + 5 
IF AC > M THEN 
GOTO 434 
AR = L:AC 
15:6 = ñ 
IFL > = 
GOTO 430 
FOR T = 1 
HOME 

GOTO 420 
REM CHANGE OR LEAVE 
IF K = Zi THEN NJ = 


H H 


аза 


H 


АН: = 
24 THEN Szü 
TO 1000: NEXT 
1: GOTO 692 


THEN 61@ 
IF G = 1 THEN 


IF Ni < =e 
( RND (1) ж 2): 
= Ni 


IF AC — 5 < = à THEN VTAB AR - i: 
HTAR 4 ~ AC - i3: PRINT "eme": GOTO 
VTAB AR: HTAR BC —- 5: PRINT "EPEE"; 
REM PAUSE BEFORE CONT. 
FOR T = 1 TO zü2: NEXT К = Q 
GOTO 450 
IF ABS (N — Мі) = 
Y = y ~ 1: GOTO тей 
Y —- Y * 1 
GOSUR 974:B81 = 
А2 = PEEK 
IF Ai = 192 
GOTO 62 
HOME sY = Y + Ë 
PRINT "GUIT HOLDING DOWN THE ARROW" 
PRINT "KEY, YOU MANIAC!!!” 
FOR T = 1 TO ісдй: NEXT : 
бей 
REM PLAYER ADVANCE 
ҮҮ(1) = Y:Y йз HOME 
ML I E ME 


ü THEN 710 


PEEK 
(B1 + (AC = 
AND Ac = 


(Pi + 
9)) 
192 


(AC ~ 8)) 


THEN 760 


HOME : GOTO 


832 IF I > P THEN Ni = Ni - 1: GOTO 858 
вай GOTO 36a 

850 REM FINAL 

Вей PRINT "PLAYERS AND THEIR POINTS" 
870 PRINT "ARE AS FOLLOWS:" 

880 FOR I = 1 TO P 

890 PRINT NS{I);" IDENTIFIED "; 

900 IF ҮҮ(І) = à THEN PRINT "ALL 


NUMERALS. ": GOTO 93a 
310 IF ҮҮ(І) ( @ THEN YY(I) = ~ YY(I) 
32d PRINT Ni — YY(I):" NUMERALS, " 
330 NEXT 
2440 PRINT 
354 PRINT "END OF PROGRAM" 
96€ END 


97@ IF BR > 1 AND AR ( = B THEN рі = AR 
ж 128 + 896 


382 IF AR > = 9 AND AR < = 16 THEN Pi 
= {AR ~ B) * 128 + 936 
920 IF AR > = 17 AND AR < = Z4 THEN Pi 


= (AR — 16) ж 128 + 976 
12040 RETURN 
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Lap-the-Track for the Apple Il 


REM PROGRAM TITLE: LAP THE TRACK 


CLEAR : HOME 

HTAB 10: PRINT "-:-: LAP-THE-TRACK 
PRINT : DIM O$(15),0(15),LA (15) , TC15) 
INPUT "INSTRUCTONS?";A$ 

IF АФ < › "Y" AND AS ( > "YES" THEN 
300 

PRINT "UP TO FIFTEEN PEOPLE БЕТ ON 
FOUR MOVING" 

PRINT "SPOTS THAT ARE IN A FAST ВАСЕ" 
PRINT "TO THE FINISH. А COMPLETE RACE" 
PRINT : IF CB = 1 THEN 960 

PRINT "WILL BE ABLE TO CHOOSE A LANE 
(1-4)" 

PRINT "AND MAKE A BET OF ANY DESIRED" 
PRINT "AMOUNT ON THAT LANE. IF THERE" 
PRINT “ARE NO WINNERS, THE COMPUTER 
WILL" 

PRINT "PLACE THE MONEY ON A LANE OF 
ITS CHOICE" 

PRINT "IN THE NEXT RACE. IF THE" 
PRINT "COMPUTER'S SPOT HAPPENS TO WIN" 
PRINT "IT WILL NOT TAKE THE MONEY;" 
PRINT "IT WILL JUST BET ON ANOTHER 
LANE. ” 

PRINT "SO, NO MATTER HOW YOU SLICE IT," 
PRINT "SOMEONE IS BOUND TO WIN. (YOU 
САМ USE" 

PRINT "REAL MONEY IN THIS GAME IF YOU 
WISH. )” 

PRINT 

PRINT 

INPUT "HOW MANY WILL PLAY? "35 

IF B ( 1 OR B > 10 THEN 32a 

PRINT "INITIALS, PLEASE: "; 

FOR I = 1 TO B 

INPUT АФ (1): NEXT 

PRINT 

PRINT "YOU WILL NOW SELECT A LANE.” 


= 1 


PRINT AHI)”: LANE NUMBER” s 

INPUT LACT) 

IF LACI) 4 1 OR LACT) > 4 THEN 390 
PRINT "BET WHAT AMOUNT?" 3 

INPUT RB(I) 


I = I + 1 


IF I >) В THEN 48 

PRINT 

GOTO 390 

HOME : GOSUB 1300: IF ZZ = 1 THEN 51й 
PRINT "IF MORE THAN ONE PLAYER WINS" 
PRINT "(SELECTION OF SAME LANE), ALL 
MONEY" 

PRINT "WILL BE DIVIDED AS EQUALLY AS 
POSSIBLE." 

PRINT : IF CE = 1 THEN 360 

GOSUB 1240: GOSUR 13500: GOSUR 14160 
FOR TU = 1 TO zügg: NEXT : HOME 


PRINT "PRESS RETURN TO START THE КАСЕ ғ" 


INPUT AS: HOME : GR 

REM OUTER TRACK 

COLOR= 8: FOR I = à TO 38 STEP ій 
HLIN @,39 AT I 

HLIN 0,39 AT I + 6 

VLIN 1,1 + 6 AT à 

VLIN I,I + 6 AT 39 

NEXT 

REM SPOT LOCATIONS 


GOSUB ірйЙ іі = Іп = 4:16 1 


LR(L) = IR:sLC(L) = ICsRR(L) = IR:RUC(GO 
I 


= IC:PR(OD = IR - S:iPCOD = IC + Seb 


p(L) = ñ 
PR(1) = 21:PR(2) = PR(1):PR(3) = 
GESPROR) = PR(3)2PC(1) = 16:PC(2) = 


36sPC(3 ) = PC(1):PC(4) = PCC) 


IR = IR + 10: IFL 2) = 4 THEN Бай 


COLOR- 3 ж 1: PLOT LCOC(I),LR(I): NEXT 
REM START A RACE 


LP = @:PK = LR(1) + 1 


1 = INT ( RND (1) * 4 + 10:M = ABS 
(I — 5) 
COLOR- @: IF LC(I) ) = 34 THEN GOTO 
iaga 
PLOT LC(D,LR(GD 
IF ABS (LC(I) ~ RC(I)) > = 29 THEN 
1000 
LE(I) = LELI) + INT ( RND (1) ж ій + 1) 
COLOR- 3 * I: IF LC(I) у = 34 THEN 
GOTO 1002 
PLOT LC(D,LR(GD 
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IF M + 1 ¢ > I AND M+ 1 < >» S THEN 
793 

GOTO 82a 

COLOR- A: IF СЕМ + 1) > 
GOTO iue 

PLOT СМ + 1),LR(M + 1) 


n 


34 THEN 


ІСІМ + 1) = СМ + 1) + INT ( BND 
(1) * 4 + 1) 


COLOR- 3 * (M + 1): IF LOC(M + 1) > = 
34 THEN GOTO 1490 

GOSUR 21@й: PLOT LC IM + 10,LR(OM + 1) 
IFM- i € » I AND M — 1 < > à THEN 


GOTO 870 
COLOR- Qs: IF ІСІМ — 1) >+ = 34 THEN 


GOTO 1@@@ 
PLOT LEM — 1),LR«(M — 1) 


LCi — 1) = САМ — 1) + INT ( RND 
(1) * 4 + 1) 


COLOR- (M — 1) * 3: IF LC(M - 1) > 


= 34 THEN GOTO 10400 


GOÜBDUB zióoéóds: PLUT СЕМ — i) НЕМ — i) 
IF M+ 2 5 > SŠ AND M +Z < > 6 THEN 
830 

БОТО 720 

COLOR Qs: IF LOCM + 2) > = 34 THEN 
GOTO itt 


PLOT LC(M + 2), 60м + ë) 


ІСІМ + 2) = LOM + #) + INT ( RND (1) 
ж # + 1) 


COLOR= (M + E) * 3: IF LC(M + 2) > 

= 35 THEN GOTO 1004 

GOSUB ZZ2ü: PLOT LCM + 2) ,LR(M + 2) 
COLOR- Ø: IF LC(M) y = 34 THEN GOTO 
1202 

PLOT СМ), LRM) 


ШСМ) = ШСМ) + INT ( RND (1) * 4 + 1) 


COLOR- M * 3: IF LC(M) 2 = 34 THEN 
GOTO 10020 

GOSUB zz80: PLOT СМ), ЕАМ) 

GOTO 72a 


СЕ = @: TEXT : HOME : PRINT "THE 
COMPUTER WILL PLACE THE AMOUNT OF "s 


3 


PRINT "$";0M; 

RF = INT ( RND (1) * 4 + 1) 
PRINT "ON LANE ";RF;"," 

MN(RF) = MN(RF) + АМ:АМ = Q 


GOTO Sia 


кы 


COLOR- Qs: IF LCI) >» = 34 THEN 
LC£4I) = 38 
PLOT СІ), ЕСІ) 
LUCI) = НС(1) 
LP(I) = LPCI) + 1: МУТАН PR(I): НТАВ 
РС(1): PRINT LPCI) 
IF LP(I) >) = 1@ THEN 1500 
GOTO 724 
VTAB Zi: НТАБ 1: PRINT "LAPS - LANE 
es 
VTAB 21: HTAR 2@: PRINT "LAPS ~ 
LANE i's 
UTAH 22: нтав 1: PRINT "LAPS ~ LANE 
SR 
VTOR 22: HTAR Ей: PRINT "LAPS ~ LANE 
42" 5 
RETURN 
REM AMOUNTS BET PER LANE 
УЧТАН 21: HTOBR 1: PRINT "LANE 1..... ; 
VTAB 21: HTOB zø: PRINT "LANE Z.....'3 
УЧТАН 22: HTOR i: PRINT "LANE 3..... i 
VTAB ZZ: HTAOR SA: PRINT "LANE 4..... 
RETURN 
REM AMOUNTS ON LANES 
T = 1 
FOR I = 1 TO EH 
IF LACT) = T THEN 1358 
NEXT I: GOTO 137% 
MN(T) = MMOD + BCI) / ғ 
GOTO 1340 
= T + 1 
IF T»? = 5 THEN 1404 
GOTO i320 
RETURN 
REM PRINT AMOUNTS 
AAS = "+" 
= 1:F1 = ЕР = 13 
МТАВ Fi: HTAB Fes PRINT АА%;ММ(ТО 
I = I + lt: IF I = 2 THEN Еі = 21:F2 
= 33 
IF I = 3 THEN F1 = ӘЗЕР = 13 
IF I = 4 THEN Fl = РӘ ЗЕР = 33 
IF I > = & THEN RETURN 
GOTO 1440 
REM FINISH 
WW = 1 
FOR TU = 1 ТО 1500: NEXT 
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We = 


TEXT : HOME : VTAB 3: НТАВ 15: PRINT 
"WINNER"; 

FOR TU = 1 TO 1000 

NEXT 

VTAB 3: НТАВ 15: PRINT " Ж 

IF WW) = 6 THEN 1580 
WW = WW + 1: GOTO 1520 

REM PLAYER LANE SELECT 
WH = Q 

FOR T = 1 TO B 

IF LACT) = I THEN 1630 

NEXT : GOTO 1650 
WW = WW + 1:T(WW) = T 

GOTO 1620 

FOR I = 1 TO 4:AM = AM + MN(DMN(GCD 
= @ 

NEXT : IF WW = @ THEN 1760 


VTAB 3s НТАВ 15: PRINT "WINNER(S)s"s 


Wi = 4:We = 15 


FOR I = 1 TO WW 
VTAB Wi: НТАВ We: PRINT QS(T(I)): 
IF WW ? 1 THEN PRINT ", "3 

We + S: NEXT 

IF WW = 1 THEN 1790 
VTAR 17: HTAR ій: PRINT 
RECEIVES:":; 

VTAB 17: HTAB 30: 


"EACH WINNER 
PRINT ARSZAM / WW; 


AM = @: GOTO 1828 


VTAB 3: HTAB 15: PRINT "s NO WINNERS 
GOTO 1872 

УЧТАН 17: HTRB 10: PRINT s: 

PRINT "YOU WILL RECEIVE:"; 

GOTO 1748 

REM ANOTHER 

VTAR 14: HTAB 15: INPUT "ANOTHER 
RACE (Y/N) ?" 3s A$ 

IF AS = "М" THEN Sag 

HOME ZZ = 1: GOTO 36a 

FOR TU = 1 TO 1204: NEXT 

VTAB 19: HTAR 1 

PRINT "IF ANOTHER RACE IS HELD, THE" 
PRINT "COMPUTER WILL EET THE MONEY" 
PRINT "ОМ А LANE IT SELECTS. " 
CR = 1: GOTO idee 

REM END 

HOME 


PRINT "FAREWELL TILL NEXT RACE," 


END 
РОКЕ 769,13 
POKE 774, Зӣ 
РОКЕ 768,1 
CALL 771 
RETURN 

РОКЕ 769,6 
РОКЕ 770,8 
POME 768,1 
CALL 771 
RETURN 

POKE 769,22 
POKE 772, 4 
POKE 768, 1 
CALL 771 
RETURN 

POKE 769,93 
РОКЕ 770,5 
РОКЕ 768,1 
COLL 771 
RETURN 
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Injection for the Apple ЇЇ 


10 
Eg 
Au 
а 
aA 
62 
7а 
ва 
Эй 
100 


REM PROGRAM TITLE: INJECTION 


CLEAR 

PRINT СНЕФ (4) 3"BLOADSOUND" 
HOME 

HTAB iS: PRINT "> INJECTION 5% 
PRINT 


INPUT "NUMBER TO PLAY ¢(1-1@)"5U 

IF U (1 OR U > iñ THEN 74 

PRINT "THE INITIALS OF THE PLAYERS: " 
FOR I = 1 TO Us INPUT К%(1) 

NEXT s PRINT :PL = i 

PRINT "YOU ARE HEAD OF A LABORATORY" 
PRINT "IN WHICH YOUR COMPANY IS IN THE" 
PRINT "PROCESS OF INJECTING CUBES WITH" 
PRINT "ñ SOLVENT, TO DESTROY A COLONY" 
PRINT "OF BACTERIA WHICH CANNOT БЕ" 
PRINT "CONTROLLED. THESE CURES WILL" 
PRINT "RACE ACROSS THE SCREEN 5 AT A" 


PRINT "TIME. TO INJECT а CUBE, HOLD” 
PRINT "THE SPACE BAR. THE INJECTED" 
PRINT "SOLVENT MUST DIRECTLY STRIKE 
THE" 

PRINT "OPENING АТ THE BOTTOM OF THE 
CUBES. " 

PRINT 

PRINT 

INPUT "PRESS RETURN TO CONTINUE:";L$ 
PRINT "EACH TIME ñ CUBE IS INJECTED, " 
PRINT "THE NUMBER RACING ACROSS THE 


SCREEN" | 
PRINT "WILL DECREASE EY ONE, BUT" 


PRINT "NO FEWER THAN THREE WILL RACE" 
PRINT "ACROSS AT ANY ONE TIME. A 
TOTAL" 

PRINT "OF TEN CUBES MUST BE INJECTED" 
PRINT "WITH THE SOLVENT. IF YOU MISS 
AN” 

PRINT "INJECTION, THE NUMBER OF CURES 
WILL" 

PRINT "INCREASE RY ONE. THE INJECTION" 
PRINT "MACHINE CAN BE MOVED LEFT OR 
RIGHT” 

PRINT "WITH THE LEFT OR RIGHT ARROW 
KEYS. ” 

PRINT "GOOD LUCK!” 

PRINT 


X 


X 


INPUT "PRESS RETURN TO CONTINUE:"sL¢ 
GR 
HOME :JN = Q:T = 1:IN = 1Q:E = @:cy = 
©: GOSUR 600 
REM THE CUBES 
= 3:M = X:J = @:JJ = @: COLOR- 11 
COLOR= 11: НІМ X, (X + 4) AT Š 
HLIN X, (X + 4) AT 3 
HLIN X, (X + 4) AT 4 
COLOR- 0: PLOT (X + 2), 4 
= X + 6:J = J + 1 
БОБОВ 1600 
IF JJ = 1 THEN Sea 
IF J) = CV THEN 51й 
GOTO 442 
COLOR= 0: REM BLANK DUT 
HLIN M, (M + 4) AT ë 
HLIN M, (M + 4) AT 3 
HLIN M, (M + 4) AT 4 


M = M+ 6 

REM RECYCLE 

IF X) = 33 THEN X = 3:JJ = 1: GOTO 
jag 

IF M»? = 53 THEN 430 

БОТО 720 

COLOR- 12: REM  BORDER/INJECTOR 


FOR X = à TO 39: PLOT x,a 
PLOT X,38: PLOT X,39: NEXT 
FOR X = 1 TO 39 

PLOT @,X: PLOT 1,X 

PLOT 38,X: PLOT 39,X: NEXT 
COLOR= 14: HLIN P,39 AT 15 


QC = 2:08 = 14:CA = @ 


R 


PLOT GC,GR 

МТАВ 21: HTAR 1: PRINT "CUBES 

REMAINING "; 

VTAB 21: НТАВ 23: PRINT "CUBES ADDED "; 
VTAR 22: PRINT H$(PL)s: RETURN 

REM  INJECTION/INJECTOR MOVE 

IF R = 32 THEN 730 

= PEEK ( - 16384) - 128: POKE ( - 


16368), 


IF R 32 THEN 739 
IF R 8 THEN Зай 
IF R ci THEN 960 
GOTO 440 


IF JN = 1 THEN 810 


H H H 
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GQ = OC:JIN = 1:01 = QR 
IF QR < = 4 THEN V = 
COLOR- @: PLOT QC, ОН 

GR = QR - 11: COLOR= 14: 
GOSUR 1704 
IF  SCRN( 
GOTO 444 
IF SCRN¢ 
GOTO 44% 
COLOR= й: GOSUR 1Э@@ 
PLOT өс, QR 

QC = QQ + E:QQ = 
COLOR- 14: PLOT QC, QR: 
GOSUR 11408 

R = @:JN = 6: GOTO жай 
REM TO LEFT 
IF GC ( = 3 THEN 44@ 
COLOR- A: PLOT GC, QR 

QC = QC - T 
COLOR- 14: GOSUER 1840 
PLOT DC, QR 
GOTO 44Uu 
REM TO RIGHT 
IF GC >» = 35 THEN 44% 
COLOR- й: PLOT QC, GR 

QC = QU + T 
COLOR- 14: GOSUH 1800 
PLOT QC, QR 
GOTO 44u 
IF  SCRN( QC, (QR — 12) 
GOTO 448 
IF  SCRN( 
GOTO 44 
IF  SCRN( 
GOTO 44a 
REM INJECTED 

T= T + 1:CV = CV i 
IF Т» = 5 THEN T = 1 
IF CV < = 2 THEN CV = S 

VTABH 21: HTAB 18: PRINT " 


1: GOTO 86й 
PLOT QC, GR 


(ОС + 1), QR) 


il 


11 THEN 845 


11 THEN 1@2@ 


(GC ~ 1),GR) 


Q:E = @:0R = 
IE ye 


G1 
1 THEN 


11 THEN iad 


(QC - 2), ВА) 11 THEN 1045 


11 THEN 1@6@ 


(ОС + 2), QR) 


2: 
IF IN < = 
Е = INT (Š 
= 37 THEN E 
GOTO 860 
REM CUBE ADDED/INJECTION MISSED 
IN = IN + 1 


IF E * 80 > 
RND 1) + 1) 


RND (1) + 1): 


+ 
= — INT (Š * 


1160 CA = 


1165 
1170 
1180 
1190 
12a@ 
1210 
1250 
1268 
1278 
1280 


12920 


МІРІ) = 


М} = 


V = Й 


à THEN T = 1 
: HTAB 18: PRINT IN; 
z HTBB 36: PRINT CA; 


езі 
Tl 
-— 
ж-- 
i] 


REM PLAYER ADVANCE 

CA:PL = PL + 1 

IF PL > U THEN 1310 

VTAB 22: PRINT "STANDBY "ІКФІРІ); "... 
1 TO 15@@: NEXT 

= @: GOTO 410 

FOR YY = 1 TO 9@@: NEXT : TEXT : HOME 
PRINT "ALL PLAYERS HAVE HAD THEIR" 
PRINT "TURNS АТ THE INJECTION 
MACHINE. " 

PRINT "SCORES ARE BASED ON THE NUMBER 


PRINT "OF CUBES WHICH WERE ADDED 
DURING" 

PRINT "THE INJECTION PROCESS." 
PRINT : FOR I = 1 TO U 


PRINT "INJECTOR: "sK#(1) 

PRINT "HAD "sW(I):" CUBES ADDED." 
PRINT "FINAL SCORE EVALUATION:"; 
7186 
IF W? 2 AND W ( 5S THEN 1470 
IF W е AND W < ій THEN 1480 
IF W) 10 AND W ( = 20 THEN 1430 
PRINT "TOO BAD TO MENTION!"; 

GOTO 1580 

PRINT "EXCELLENT ! "ғ 
PRINT "FAIR.": 
PRINT "POOR. ": 
FOR YY = 
NEXT I 
PRINT 
PRINT 
END 
POKE 769, 23 
POKE 770,28 
POKE 768, 2 
CALL 771 
RETURN 

POKE 769,112 
POKE 770,6 


H H H 
H H 


GOTO 1500 
GOTO 1500 
GOTO 1500 


1 TO 1208: NEXT YY: PRINT 


"END ОҒ INJECTION" 
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1720 
17358 
1744 
18@@ 
1810 
1830 
1840 
1850 
13060 
1310 
1920 
1330 
1941 
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POKE 768,1 
CALL 771 
RETURN 

POKE 769, 25 
POKE 772, 25 
POKE 768, 1 
CALL 771 
RETURN 

POKE 769, 132 
POKE 770,6 
POKE 768,1 
CALL 771 
RETURN 


Appendix C 


Making the Programs 
Work on Your Own Computer 


Both the IBM and TRS-80 computers use MicroSoft BASIC, which 
means that they use similar syntax. However, you will find some 
differences as you program. Here are the most common problems 
you'll encounter in this book as you enter the programs which didn't 
come with special versions for the IBM or Apple. 

CHR$. If a program asks for a character with an ASCII code 
smaller than 32 and larger than 90, it's probably some kind of special 
character limited to your computer. The computer industry hasn't 
bothered to standardize these numbers. ТК5-80 ASCII codes be- 
tween 129 and 191 are special graphics characters, and they're used 
to make things look interesting. Just substitute something your 
computer has that looks interesting to you! Check your basic man- 
ual for ideas. (My favorite IBM character is CHR$(2), a smiley face 

. .) 

CLEAR. This command just gets rid of all the ''garbage" your 
computer has left lying around in its memory from other programs 
you've run. Don't bother to put a number after it unless your own 
basic manual suggests it—at least, not for any programs without 
machine language routines or a lot of high resolution graphics. 

CLS. Apple users, use HOME! 

DELAYS. Well, what did you buy IBM for if not for speed? But 
you'll have to almost double any time delay routines, such as 
for-next loops, unless you're twice as quick on the draw as the 
average computer owner. 
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ELSE. This very useful function is available to IBM users, but 
not to Apple lovers. Whenever you see a line in one of the original 
programs with an else statement, if the program is to run on an 
Apple II, you must create another line immediately following it to 
hold anything that follows the word else. Then you must make the 
original line skip that new line so that it makes it to where it was 
going in the first place. Did I lose you back at the pass? It works like 
this: 

Original lines: 20if A=10 THEN A=17 ELSE A=A+1:GOTO 10 
30 Z-INT(RND(1)*A--1) 

New lines: 20 IF A=10 THEN A=17:GOTO 30 
25 A=A+1:GOTO 10 
30 Z=INT(RND(1)*A+1) 


I hope you understood that, because that’s ali the explanation 
you are going to get. 

INKEY$. This is another command Apple users must do 
without. It lets you monitor the keyboard directly without having to 
press the enter key. However, Apple users can peek and poke their 
way to a similar result. Instead of, for example, X$=INKEY$, you'll 
need to use X-PEEK(- 16384 ) - 128. X will be the ASCII code of 
whatever was input. Be sure to reset this memory location, though, 
or your program will think you've been holding down the REPT key. 
You do this by following your peek statement by POKE - 16368, 
0. 

PRINTG. See SCREEN FORMATTING 

PRINT USING. This is another of those useful commands 
your Apple doesn't understand. This command allows you to format 
a number so that something going in looking like 987654321 can 
come out looking like $9,876,543.21. The print using statement will 
have a string of characters such as $$#####,.##, which works 
the conversion from chaos to order. Apple users will have to figure 
out what the number is supposed to look like from context and use 
regular print statements to approximate the TRS-80 results. 

RND. TRS-80 BASIC accepts the statement RND(n) to pro- 
duce a random number between n and 0. If you want the bottom 
value to be higher than zero, you must add a second statement such 
as "IF W<=10 THEN...” and go back to the RND statement until 
you get the value you want. А randomize statement in the early lines 
of the program will reset the random number generator so that it 
gives different values each time the program is run, otherwise the 
game may be too predictable. 
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some BASICS, such as those used by IBM and Apple, can use a 
formula to produce random numbers within desired limits all in one 
step. Using the variable name À to represent the higher number and 
B for the lower, use this formula: X= INT(RND*(A- В) +В. Sup- 
pose you need random numbers between ten and twenty. 20— 
10-10, so X= INT(RND*10-4-10). 

To ensure that the random number generator gives a different 
value each time the game is started, add the subscript (1) to RND on 
the Apple: X= INT(RND(1)*10--10). The IBM will require you to 
use the command Randomize n, where n is a number that can be 
input from the keyboard or be given a value by the program. See 
how it's done in the special IBM and Apple versions if you aren't 
sure how to write it into a program. 

STRINGS. I won't even say it. . . Do I hear the patter of little 
feet running out to trade in that Apple? No need! Think of all the 
terrific software you can get for it, and use a for-next loop. 

STRINGS allows the computer to use one print statement to do 
a repetitive task, such as making a row of stars along the top and 
bottom of the screen. If the statement says PRINT STRING$ 
(40,42), it's telling the computer to print a line of forty characters 
with the ASCII code of 42, which is an asterisk. You can replace that 
statement with something like: FOR X=1 TO 40: PRINT 
“ж”; ; NEXT. Don't forget the semicolon after the “*” or they'll all 
come out on different lines. (You already knew that, didn't you?) 


SCREEN FORMATTING 


The TRS-80 Model III Computer for which the programs in this 
book were originally written supports a screen display sixty-four 
characters wide and sixteen rows deep. The IBM, by contrast, 
offers a choice of either forty or eighty columns in width, with 24 
rows. This means that programs which don't require any special 
formatting (i.e., graphics of some kind) сап be used on the 80 width 
screen without changes. They may look a little lopsided, but that 
doesn't bother most people. 

Most Apple computers have only a forty character screen. If 
you have an Apple or other narrow screen computer (or choose to 
use the 40 width screen on an IBM) or are entering a program which 
requires that the text be located on the screen in a precise manner, 
you will need to reformat. 

First, decide what the program ‘‘wants”. If the sample printout 
is all text, it probably doesn't matter how wide the lines are. If 
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they're too wide, they'll wrap around. If you fill the screen too soon 
and part of the text scrolls off, insert or move a pause routine (a 
for-next loop) or stop it with an input statement. 

You have more screen lines, so you may want to center the text 
or graphics image by adding a few blank lines at the top ; or you can 
block text at the bottom in rows 17-23 (don't use line 24 unless you 
want a scrolling effect) to simplify a graphics image in the first 
sixteen rows. 

Most of the complicated reformatting has been done for you in 
the separate program listings in Appendices À and B ; however, if 
you aren't sure how to format the remaining programs, use the 
following guides. 

The most common TRS-80 screen formatting statement is 
PRINT @ , PRINT @locations start at the top left corner of the 
screen with PRINT 9 0, and work their way up one by one as they 
move across the screen to the right. The rightmost corner of the top 
lineis PRINT @ 63. after which the count continues on the next row, 
starting again at the left. If you can’t visualize this, look at the chart 
of PRINT @locations in Appendix D. 

A screen location directly above or below another can be 
pinpointed by subtracting 64 from the original PRINT @ location or 
adding 64 to it. If you want to convert the number into row and 
column figures you can use on the Apple (VTAB and HTAB loca- 
tions) and the IBM (LOCATE statements), divide the PRINT 
@ value by 64 and add one to the answer to obtain a row, and add one 
to the remainder to get the column. Or look at the chart—after all, 
you paid for it. 

TRS-80 also supports TAB(n) statements which are just like 
IBM’s, and are the equivalent of Apple HTAB. However, whether 
you are looking at a PRINT @ location or a tab statement, if you are 
using a 40 character screen you will need to make sure your column 
values stay on the screen. Remember that 40 is approximately 
two-thirds of 64; reducing the column values by one-third and 
experimenting will probably get the desired result. If the program 
line wraps around and you don’t want it to, either shorten it, or move 
the starting column position to the left. 

TRS-80 also has a function called set, which lights up one pixel, 
or little light dot, on the screen. The locations are described in the 
same way Apple users describe plot locations, or IBM owners 
access PSET: SET X,Y means go over X and down Y and light up 
the screen there. Reset does just the opposite : it turns off a lighted 
pixel at the specified location. 
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However, since set and reset address pixels and plot addresses 
a block, you'll need to cut all X axis values (counting across the 
screen) by 2/3, and the Y values (counting down the screen) in half. 
You'll want to experiment a little. If the program says SET 127,30 
followed by SET 100,30, the first dot will be at the right-hand edge 
of the screen, eleven rows down ; and the second, while at the same 
level, will be about a fourth of the way toward the left side of the 
screen. The PRINT © chart includes set information. 

IBM users also have the option of converting set locations into 
locate statements, but they must remember to reverse the order of 
the axes, since locate statements give the row first, and then the 
column. 


SCREEN GRAPHICS 


Now the Apple users can watch the IBM users squirm for a 
minute. If you have an IBM PC with a monochrome monitor, it 
probably doesn't have a color/graphics card. This means that two of 
the special versions for IBM, Knights and Intercept, won't work on 
your screen. You will need to combine the information you learned 
in the section on screen formatting with the adapted versions to turn 
the screen graphics commands into text screen commands your 
system can display. Use your BASIC manual for a reference. 

Also, almost all of the IBM programs use color, even when in 
the text screen. (This is because there are so many colors on the 
text screen!) If you have a graphics card and a ''green screen" (not 
as crazy asit might sound), change all of the color statements to read 
COLOR 7,0,0. This will give you bright characters on a dark 
background. Or, even simpler, just don't type in any color state- 
ments at all. 


SOUND EFFECTS 

You can use the Apple sound routine for any programs in the 
book, whether they are written with sound or not. Look at the 
special Apple versions and see how the routine 1s loaded and called 
by the programs ; then try your own. Many BASICS support sound 
statements. You'll see some of these in the IBM programs, which 
use the special musical abilities IBM comes with. Use these exam- 
ples and those given in your BASIC manual to see what you can 
come up with for the programs you think are too quiet. 


VARIABLE LENGTH 
The world of computers is a world of trade-offs. Apple users 
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can name their programs anything they like, including multiple word 
titles; IBM users are stuck with eight letters and a suffix. But IBM 
users can name their variables anything they like, as long as it 
doesn't have spaces. You can expand variable names to make the 
program more meaningful if you want. Apple users, better stick to 
those two-letter names the programs come with. 

And now, happy hacking! 
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Appendix D 
Screen Locations 


TRS-80 SCREEN LOCATIONS 


LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 
ROW 1 :PRINTO O PRINT@ 15 PRINT@ 31 PRINT@ 47 PRINT@ 63 

SET O , 0 SET 31,0 SET 63,0 SET 95 , 0 SET 127,0 
—— M a à 
ROW 2 :PRINT@ 64 PRINT@ 79 PRINT@ 95 PRINT@ 111 PRINT@ 127 

SET 0,3 SET 31 , 3 SET 63 , 3 SET 95 , 3 SET 127 , 3 


ROW 3 :PRINTG 128 PRINTG 143 PRINT@ 159 PRINT@ 175 PRINTG 191 
SET 0 , 6 SET 31 , 6 SET 63 , 6 SET 95 , 6 SET 127 , 6 
M MM tna 

ROW 4 :PRINT@ 192 PRINTG 207 PRINTG 223 PRINT@ 239 PRINT@ 255 
SETO , 9 SET 31, 9 SET 63 , 9 SET 95 , 9 SET 127,9 
—— n U 


ROW 5 :PRINT@ 256 PRINT@ 271 PRINT@ 287 PRINT@ 303 PRINT@ 319 
SET 0, 12 SET 31 , 12 SET 63 , 12 SET 95 , 12 SET 127 , 12 


— E E еар нден 


ROW 6 :PRINTG 320 PRINTG 335 PRINT@ 351 PRINTe 367 PRINT@ 383 
SET O , 15 SET 31 , 15 SET 63 , 15 SET 95 , 15 SET 127 , 15 


ROW 7 :PRINT@ 384 PRINT@ 399 PRINT@ 415 PRINT@ 431 PRINT@ 447 
SET O , 18 SET 31 , 18 SET 63 , 18 SET 95 , 18 SET 127 , 18 


—ərv sI rr a Ñ 


ROW 8 :PRINT@ 448 PRINT@ 463 PRINT@ 479 PRINT@ 495 PRINT@ 511 
SET O , 21 SET 31 , 21 SET 63 , 21 SET 95 , 21 SET 127 , 21 
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LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 


a a a e i t a a a O 


— — 


ROW 9 ;PRINT@ 512 PRINT@ 527 PRINT@ 543 PRINT@ 559 PRINT@ 575 
SET O , 24 SET 31 , 24 SET 63 , 24 SET 95 , 24 SET 127 , 24 


O a e e 


BOW 10 : 
PRINT@ 576 PRINTG 591 PRINTG 607 PRINTG 623 PRINTG 6° 
SET О, 27 SET 31 , 27 SET 63 , 27 SET 95 , 27 SET 127, 


NENNEN Y c 


ROW 11 : 
PRINT@ 640 PRINT@ 655 PRINT@ 671 PRINTG 687 PRINTG 703 
SET 0, 30 SET 31 , 30 SET 63 , 30 SET 95 , 30 SET 127 , 30 


NENNEN E M 


ROW 12 : 
PRINTG 704 PRINTG 719 PRINTe 735 PRINT@ 751 PRINIG 767 
SET 0, 33 SET 31 , 33 SET 63 , 33 SET 95 , 33 SET 127. , 33 


NENNEN 


ROW 13 : 
PRINTG 768 PRINTG 783 PRINT@ 799 PRINTG 815 PRINT@ 831 
SET O , 36 SET 31 , 36 SET 63 , 36 SET 95 , 36 SET 127 , 36 


——v ——— u —— U a a a t rr ti 


ROW 14 : 
PRINT@ 832 PRINTG 847 PRINT@ 863 PRINT@ 879 PRINT@ 895 
SET O , 39 SET 31 , 39 SET 63 , 39 SET 95 , 39 SET 127 , 39 


rr RTT a a d ——  —————UAAWAYA TT таттан аи аккан 


ROW 15 : 
PRINT@ 896 PRINTG 911 PRINT@ 927 PRINTG 943 PRINTE 959 
SET 0, 42 SET 31 , 42 SET 63 , 42 SET 95 , 42 SET 127 , 42 


______ XX I a a T аА 


ROW 16 : 
PRINT@ 960 PRINT@ 975 PRINT@ 991 PRINT@ 1007 PRINT@ 1023 
SET 0, 45 SET 31 , 45 SET 63, 45 SET 95 , 45 SEF 12” , 45 


APPLE Il SCREEN LOCATIONS 


ne ee sities a nD 


LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 


tr U a ersten HI r rr 


ROW 1 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOTO, 4 PLOT 9 , 1 PLOT 19,1 PLOT 29 , 1 PLOT 39 , 1 


e a a a a a TT uta tra, 


ROW 2 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT 0, 2 PLOT 9 , 2 PLOT 19 , 2 PLOT 29 , 2 PLOT 39 , 2 


h XE X, ZG K X T Z Z I U T TT I u mm 


ROW 3 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOTO, 3 PLOT-9 , 3 PLOT 19, 3 PLOT 29 , 3 PLOT 39 , 3 


— U A.D 


ROW 4 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT О, 4 PLOT 9 , 4 PLOT 19 , 4 PLOT 29 , 4 PLOT 39 , 4 


NIMM MEM M Mi AL at 
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LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 
ROW 5 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT 0, 5 PLOT 9, 5 PLOT 19 , 5 PLOT 29 , 5 PLOT 39 , 5 
ROW 6 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 6 PLOT 9 , 6 PLOT 19 , 6 PLOT 29 , 6 PLOT 39 , 6 
ROW 7 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOTO, 7 PLOT 9 , 7 PLOT 19 , 7 PLOT 29 , 7 PLOT 39 , 7 
ROW 8 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOTO, 8 PLOT 9 , 8 PLOT 19 , 8 PLOT 29 , 8 PLOT 39 , 8 
ROW 9 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT 0, 9 PLOT 9 , 9 PLOT 19 , 9 PLOT 29 , 9 PLOT 39 , 9 
ROW 10 : 

HTAB 1 HTAB 1Q , HTAB 20 HTAB 30 HTAB 40 

PLOT O , 10 PLOT 9 , 10 PLOT 19 , 10 PLOT 29 , 10 PLOT 39 10 
ROW 11 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT О, 11 PLOT 9 , 11 PLOT 19 , 11 PLOT 29 , 11  PLOT 39 11 
ROW 12 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 12 PLOT 9 , 12 PLOT 19 , 12 PLOT 29 , 12 PLOT 39 12 
ROW 13 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT 0, 13 PLOT 9, 13 PLOT 19 , 13 PLOT 29 , 13 PLOT 39 13 
ROW 14 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT 0, 14 PLOT 9 , 14 PLOT 19 , 14 PLOT 29 , 14 PLOT 39 14 
ROM 15 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT О, 15 PLOT 9, 15 PLOT 19 , 15 PLOT 29 , 15 PLOT 39 15 
ROW 16 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 16 PLOT 9 , 16 PLOT 19 , 16 PLOT 29 , 16 PLOT 39 16 
ROW 17 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT 0, 17 PLOT 9 , 17 PLOT 19,17 PLOT 29 , 17 PLOT 39 17 
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“қ. 
LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 


BENE E ttt 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 18 PLOT 9 , 18 PLOT 19 , 18 PLOT 29 , 18  PLOT 39 , 18 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 19 PLOT 9 , 19 PLOT 19 , 19 PLOT 29 , 19  PLOT 39 , 19 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 20 PLOT 9 , 20 PLOT 19 , 20 PLOT 29 , 20 PLOT 39 , 20 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 21 PLOT 9 , 21 PLOT 19,21 PLOT 29 , 21 PLOT 39 , 21 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT 0, 22 PLOT 9, 22 PLOT 19, 22 PLOT 29,22 PLOT 39, 22 


————— э — — шақ c 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 23 PLOT 9 , 23 PLOT 19 , 23 PLOT 29 , 23  PLOT 39 , 23 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 24 PLOT 9 , 24 PLOT 19, 24 PLOT 29 , 24 PLOT 39, 24 


IBM PC SCREEN LOCATIONS 


LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 


ROW 1 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN BO 
PSET О, О PSET 79 , O PSET 152,0 PSET 239,0 PSET 319 , 0 


ROW 2 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET 0,8 PSET 79 , 8 PSET 159,8 PSET 239 , 8 PSET 319 , 8 


ROW 3 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
РЅЕТ О, 16 PSET 79, 16 PSET 159, 16 PSET 239, 16 PSET 319 , 16 


ROW 4 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 24 PSET 79 , 24 PSET 159 , 24 PSET 239 , 24 PSET 319 , 24 


ROW 5 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 32 PSET 79 , 32 PSET 159 , 32 PSET 239 , 32 PSET 319, 32 
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LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 


ROW 6 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 40 PSET 79 , 40 PSET 159, 40 PSET 239 , 40 PSET 319 , 40 


—  —  ——nH relever HA aa РУ яе ш 


ROW 7 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET О, 48 PSET 79 , 48 PSET 159 , 48 PSET 239 , 48 PSET 319 , 48 


ROW 8 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 56 PSET 79 , 56 PSET 159 , 56 PSET 239 , 56 PSET 319 , 56 


m A PP pH T RAS IR RAI) Y ж я >» же i AH 


ROW 9 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
РЕТ 0 , 64 PSET 79, 64 PSET 159, 64 PSET 239, 64 PSET 319, 64 


w 


ROW 10 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 72 PSET 79 , 72 PSET 159, 72 PSET 239, 72 PSET 319, 72 


——ÓÁ' à aa mand 


ROW 11 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
РЅЕТ O , 80 PSET 79 , 80 PSET 159 , 80 PSET 239, 80 PSET 319 , 80 


nel 


ROW 12 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 88 PSET 79 , 88 PSET 159, 88 PSET 239 , 88 PSET 319 , 88 


ite rre a src mm 


ROW 13 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET 0, 96 PSET 79, 96 PSET 159 , 96 PSET 239 , 96 PSET 319, 96 


9 ar maamaa ш — —— (vini 


ROW 14 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 104 PSET 79 , 104 PSET 159 , 104 PSET 239 , 104 PSET 319 , 104 


ROW 15 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 112 PSET 79 , 112 PSET 159 , 112 PSET 239 , 112 PSET 319 , 112 


— U U t nM CE CE 


ROW 16 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 120 PSET 79, 120 PSET 159, 120 PSET 239 , 120 PSET 319 , 120 


ROW 17 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 128 PSET 79 , 128 PSET 159 , 128 PSET 239 , 128 PSET 319 , 128 


ROW 18 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 136 PSET 79, 136 PSET 159, 136 PSET 239, 136 PSET 319 , 136 


ROW 19 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 144 PSET 79 , 16& PSET 159 , 144 PSET 239 , 144 PSET 319 , 144 


ROW 20 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 152 PSET 79 , 152 PSET 159 , 152 PSET 239 , 152 PSET 319 , 152 


——— a 
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LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 


ROW 21 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 160 PSET 79 , 160 PSET 159 , 160 PSET 239 , 160 PSET 319 , 160 


ROW 22 : 
COLUMN i COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 168 PSET 79 , 168 PSET 159 , 168 PSET 239 , 168 PSET 319 , 168 


ROW 23 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 176 PSET 79 , 176 PSET 159 , 176 PSET 239 , 176 PSET 319 , 176 


ROW 24 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 184 PSET 79 , 184 PSET 159 , 184 PSET 239 , 184 PSET 319 , 184 
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Appendix E 
Setting Up Your Games Disk 


If you have a disk drive, why not make a menu-driven disk with all of 
the games in this book, just like the software you buy? If your 
computer's BASIC has the chain command, or if you know how to 
address the disk drive from a program, you can make a professional 
looking games disk. The IBM and Apple versions of a menu program 
are included in this section. You may use these programs as a 
general guide for creating menu programs for other systems. 


MAKING A DISK FOR THE IBM PC 


To make a disk for the IBM PC, format the disk using the 
FORMAT /S command, so that the disk will be self-booting. Next, 
make an auto-exec file by doing the following: With your DOS disk 
in the disk drive, type the command EDLIN AUTOEXEC.BAT and 
press the enter key. If you have two drives and the formatted disk is 
in drive B, be sure to type EDLIN B:SAUTOEXEC.BAT. If you have 
one drive, take out the DOS disk and put in your formatted disk now. 

Press I and the enter key; when you see the number 1:, type 
BASICA MENU (or whatever you plan to call menu program) and 
press enter. Now type E and press the enter key. The auto-exec file 
will be saved on the disk in the drive you specified. (I'll bet that was 
easier than you thought!) 

You will need to copy BASICA.COM onto the disk; use the 
command COPY BASICA.COM B: if you have two drives, the file 
will automatically copy onto the formatted disk in the B drive. If you 
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have one drive, put the formatted disk into the drive when in- 
structed by the monitor. 

Now, copy your game programs onto the newly formatted disk 
and add the menu program listed below. You will need to change all 
end statements in the game programs to CHAIN “MENU” ,10 (if you 
have used a different file name for your menu and a different starting 
line number, substitute those for ‘‘MENU” and ''10"). Also, if you 
renumbered any programs, remember that the chain statement in 
the menu program must refer to an existing line number; check your 
program to see what line number you want the computer to chain to. 


Menu Program for the ІВМ PC 


10 WIDTH 80:COLOR 7,0,0:KEY OFF:CLS 
20 LOCATE 10,25:PRINT "ADULT COMPUTER GAMES IN 
BASIC" 
30 PRINT:PRINT:PRINT TAB(38) "BY" 
40 PRINT:PRINT:PRINT TAB(32) "DAVID W. CHANCE" 
50 PRINT:PRINT:PRINT:PRINT:PRINT TAB(25)"IBM PC 
conversions by Tan A. Summers" 
60 PRINT:PRINT: INPUT "Press Enter For Menu" ,AA$ 
100 CLS:PRINT "1) HOLD TIME":PRINT: PRINT "2) 
ELEVATOR":PRINT:PRINT "3)  FAREWELL':PRINT 
110 PRINT "4) MIND INVASION":PRINT:PRINT "5) 
KNIGHTS":PRINT: PRINT "6)  INJECTION":PRINT 
120 PRINT "7) POINT А TO POINT B":PRINT:PRINT "8) 
INTERCEPT" 
130 PRINT:PRINT:PRINT "9) EXIT PROGRAM" 
140 PRINT 
150 PRINT "Press Space Bar for More Games" 
160 R$=INKEY$ 
170 IF R$="" THEN GOTO 160 
180 IF R$=" "THEN GOTO 200 
190 R=VAL(R$) | 
195 ON В GOTO 310,320,330,340,350,360, 370, 380, 390 
200 CLS:PRINT "1)  INSOMNIA":PRINT:PRINT "2) 
LAP-THE-TRACK":PRINT:PRINT "3) BE PREPARED": PRINT 
210 PRINT "4) THE COURSE":PRINT:PRINT "5) TRAPPED" 
:PRINT:PRINT "6) RAINY DAZE ":PRINT 
220 PRINT "7) GENERAL STORE":PRINT:PRINT "8) 
RAIN OF TERROR" 
230 PRINT:PRINT:PRINT "9) EXIT PROGRAM" 
240 PRINT 
250 PRINT "Press Space Bar for More Games" 
260 K$=INKEY$ 
270 IF Кф-"" THEN GOTO 260 


"c ————————————— — ean 


IF K$=" "THEN GOTO 200 

K=VAL(K$) 

ON К GOTO 410, 420,430, 440, 450, 460,470, 480, 490 
DEF SEG-O:IF (PEEK(&H410) AND &H30)<>&H30 THEN 
DEF SEG:GOTO 100 

CHAIN "HOLDTIME",3 

CHAIN "ELEVATOR",5 

CHAIN "FAREWELL",5 

CHAIN "MIND INV",25 

DEF SEG=O0:IF (PEEK(&H410) AND &H30)<>&H30 THEN 
DEF SEG:GOTO 359 

CLS:LOCATE 3,1 

PRINT "THIS PROGRAM REQUIRES THE COLOR/GRAPHICS 
ADAPTER. A SYSTEM CHECK" 

PRINT "SHOW THAT YOU'RE NOT USING THAT ADAPTER. 
PRESS THE SPACE BAR" 

PRINT "TO CONTINUE":DEF SEG:GOTO 356 

IF INKEY$<>"" THEN GOTO 355 

CMD$=INKEY$ 

IF CMD$=""" THEN GOTO 356 

IF CMD$-" " THEN CLS:GOTO 100 

CHAIN "KNIGHTS",5 

DEF SEG-O:IF (PEEK(&H410) AND &H30)<>&H30 THEN 
DEF SEG:GOTO 369 

CLS:LOCATE 3,1 

PRINT "THIS PROGRAM REQUIRES THE COLOR/GRAPHICS 
ADAPTER. A SYSTEM CHECK" 

PRINT "SHOW THAT YOU'RE NOT USING THAT ADAPTER. 
PRESS THE SPACE BAR" 

PRINT "TO CONTINUE":DEF SEG:GOTO 366 

IF ІМКЕҮ$<>"" THEN GOTO 365 

CMD$=INKEY$ 

IF CMD$=""" THEN GOTO 366 

IF CMD$=" " THEN CLS:GOTO 100 

CHAIN "INJECTOR",5 

CHAIN "POINT",5 

CHAIN "ІМТЕСРТ",3 

GOTO 999 

CHAIN "INSOMNIA",20 

CHAIN "LAPTRACK'",3 

CHAIN "BEPREP",5 

CHAIN "COURSE", 20 

CHAIN "TRAPPED" ,5 

CHAIN "RAINYDAZ",5 

CHAIN "STORE" ,3 

CHAIN "RAIN", 20 

GOTO 999 

END 
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MAKING A DISK FOR THE APPLE Ii 


Apple II users don't have to worry about formatting. Just write 
the menu program below with a new disk in the drive, and when you 
are satisfied, type INIT MENU (or whatever you want to call it), and 
press the return key. The menu program will automatically start 
each time the system is booted with that disk in the drive. 

However, you probably don't have the chain command to work 
with. Instead, at the end of each program put PRINT CHR$(4); 
"RUN МЕМО” in place of the end statement. The PRINT CHR$(4) 
statement tells the disk drive to reload your menu program. 

If you have another kind of computer and aren't sure how to 
make a menu-driven disk, try asking someone at the store where 
you bought your computer. Chances are, there's an easy way to do it 
for your computer, too. 


10 TEXT : HOME 
20 PRINT "1) MIND-INVASION" 
30 PRINT "2) RAIN" 
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90 PRINT "4) KNIGHTS" 

60 PRINT "$5) INSOMNIA" 

70 PRINT "6) ELEVATOR" 

80 PRINT “7) FAREWELL" 

90 PRINT "85 STORE" 

100 PRINT "9) RAINYDAZE" 

110 PRINT "10) TRAPPED" 

120 PRINT "11) INJECTION" 

130 PRINT "12) HOLDTIME" 

140 PRINT "13) BE PREPARED" 

145 D$ = CHR$ (4) 

150 PRINT : PRINT : PRINT "ENTER 
THE NUMBER OF THE GAME YOU 
WANT": INPUT "TO PLAY ";А 

155 IF A > 14 OR A (С 1 THEN 10 

160 ON A GOTO 170,180,190,200,21 
0,220,230,240,250,260,270,28 
0,290,300,310,320 

170 PRINT D$;"RUN MIND- INVASION" 


180 PRINT D$; RUN RAIN" 

190 PRINT D$;"RUN LAPTRACK" 
200 PRINT D$;"RUN KNIGHTS" 
210 PRINT D$;"RUN INSOMNIA" 
220 PRINT 05; "КОМ ELEVATOR” 
230 PRINT р$; "КОМ FAREWELL" 
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240 
250 
260 
270 
280 
290 
300 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
HOME 


D$;"RUN STORE" 

D$;"RUN RAINYDAZE" 

D$,"RUN TRAPPED" 

D$;"RUN INJECTION" 

D$;"RUN HOLDTIME" 

D$;"RUN BE PREPARED" 
END 
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Index 


Index 


A 
Action games, 13, 42, 156, 182, 190, 
195, 212, 306, 314 
Amount on Board game, 271 
Apple Ii, adapting programs for, 469 


B 
Be prepared for the Apple 11, 415 
Be Prepared for the IBM PC, 377 
Be Prepared game, 182 
Betting games, 271, 279 


C 
Call routine, 9 
Chance games, 205 
CHR$, 469 
Clear command, 469 
CLS, 469 
Code games, 20, 28, 35, 165 
Columns, 471 
Course for the IBM PC, 381 
Course game, the, 13 


D 
Dangerous Affair, 165 
Date Service game, 121 
Delay routines, 469 
Disk set up for the Apple ll, 484 
Disk set up for the IBM PC, 481 
Driver's Test game, 42 


E 
Elevator for the Apple li, 439 
Elevator for the IBM PC, 331 
Elevator game, 234 
Else, 470 
Experiments with sound, 3 


F 
Farewell for the Apple 11, 446 
Farewell game 249 
From Point А to Point B game, 296 


G 
Games disks, 481 
General interest, games of, 59 
General Store for the Apple 11, 404 
General Store for the IBM PC, 394 
General Store game, 92 
Graphics, 473 
Guessing games, 50, 104, 288 


H 
Hold Time, 156 
Hold Time for the Apple Il, 410 
Hold Time for the IBM PC, 326 


| 
IBM PC, adapting programs for, 469 
Injection for the Apple Il, 464 
Injection for the IBM PC, 352 


489 


Injection game, 306 | 
INKEY$, 470 

Insomnia for the Apple ll, 452 
Insomnia for the IBM PC, 369 
Insomnia program, 258 
Intercept for the IBM PC, 362 
Intercept game, 314 


K 
Key a Date game, 131 
Knights for the Apple 11, 421 
Knights for the IBM PC, 347 
Knights game, 195 


L 
Lap-the-Track for the Apple li, 458 
Lap-the-Track for the IBM PC, 372 
Lap-the-Track game, 279 
Love One Another game, 111 


M 
Master Code, 35 
Math-a-Code game, 28 
Mind Invasion for the Apple Il, 426 
Mind Invasion for the IBM PC, 342 


Mind Invasion game, 212 
Monochrome monitor, 473 


N 
Numbers, random, 471 


p 
Partners game, 288 
Party games, 61, 75, 104, 269 
Point A to Point B for the iBM PC, 356 
Print , 470 
Print using, 470 
Program listings for the Apple 11, 403 
Program listings for the IBM PC, 325 
PSET, 472 


R 


Rain of Terror, 190 
Rain of Terror for the Apple ll, 419 
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Rain of Terror for the IBM PC, 400 
Rainy Daze for the Apple Il, 455 - 
Rainy Daze for the IBM PC, 391 
Randomize statement, 470 
Respect Your Computer, 104 

Rnd, 470 


S 

Screen formatting, 471 
Screen locations, Apple ll, 476 
Screen locations, IBM PC, 478 
Screen locations, TRS-80, 475 
Set statement, 472 
Skill and logic, games of, 11 
Skill games, 92, 141, 172, 222, 234, 

249, 263, 296 
Sound effects, 473 
Sound experiments (TRS-80), 3 
Sound routine for the Apple Il, 9-10 
Sound routine for the TRS-80, 1-3 
Squares game, 141 
STRINGS, 471 


ж- 


І 
Tab statement, 472 
Trapped for the Apple ll, 431 
Trapped for the IBM PC, 384 
Trapped game, 222 
Triangle game, 205 
Troubles game, 75 


U 
USR statements, 9 


V 
Variables, length of, 473 


W 
What Is It game, 50 
Where's the Necessary Room game, 
61 
Width of screen, 471 
Words-Zit game, 20 


33 Adult Computer Games in BASIC 


If you are intrigued with the possibilities of the programs included in 33 
Adult Computer Games in BASIC for the TRS-80™, Apple II/Ile®, and 
IBM PC? 

(TAB BOOK No. 1627), you should definitely consider having the 
ready-to-run tape or disk containing the software applications. This 
software is guaranteed free of manufacturer's defects. (If you have any 
problems, return the tape or disk within 30 days, and we'll send you a 
new one.) Not only will you save the time and effort of typing the 
programs, the tape or disk eliminates the possibility of errors that can 
prevent the programs from functioning. Interested? 


Available on tape for the TRS-80, Models | and Ill, 16K. Available on 
disk for the TRS-80, Models | and Ill, 32K; for the Apple Il, Il plus, and//e, 
32K; and for the IBM PC, 32K. Each tape or disk costs $19.95 plus $1.00 
each shipping and handling. Each disk costs $34.95 plus $1.00 ship- 
ping and handling. 
қазықты тақ иле wanun uM de prb SÉ 
I'm interested in ready-to-run software for 33 Adult Computer 
Games in BASIC for the TRS-80'", Apple ll/lle% and ІВМ 
PC®. Send me: 


—  _ tape for the TRS-80, Models | and Ill, 16K (60345) 

_____ disk for the TRS-80, Models | and II, 32K (60355) 

———— disk for the Apple Il, Il plus, and //e, 32K (62355) 

— _  _ disk for the ІВМ PC, 32K (66155) 

——— —. TAB BOOKS catalog 

______ Check/Money Order enclosed for $ - (In- 
clude $19.95 for each tape or $34.95 for each disk 
plus $1.00 shipping and handling). 


VISA MasterCard 
Account Мо. --------------------- Expires 
Name 
Address 
СИУ oen а ccc Sale Sce 1р 
Signature 


Mail To: TAB BOOKS INC. 
Blue Ridge Summit, PA 17214 


(Pa. add 646 sales tax. Orders outside U.S. must be prepaid with 
international money orders in U.S. dollars.) 
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33 Adult Computer Games in BASIC. 
for the IBM PC*, Apple 11°///е® and TRS-80'" 
by David W. Chance 


Get set for a great new computer game-playing experience . . . 33 
exciting action-packed games and puzzles designed especially for 
adult interests and abilities! Quick thinking and plenty of imagination 
are needed as you play word and math games, fast action graphic 
games, guessing games, games of chance, even party games for up 
to 10 players. 

Here are target and action games, a fascinating party game 
called "Doctor Chips" that has the computer assuming the role of your 
psychologist, a computer dating game, wildly funny games that will 
liven up any party, and much more. You can test your driving skills, find 
games that take full advantage of your micro's sound and graphics 
potentials, unravel mysterious codes, see if you can keep up with the 
computer as you take a whirlwind grocery shopping tour, play games 
of chance (that you may, or may not win), and play games like 
Insomnia , “Rainy Daze”, “Elevator”, "Dangerous Affair", and many 
others. 

Plus, these carefully written and fully explained programs make it 
easy for computer users to learn new programming techniques and to 
use different programming approaches for solving the same problem. 

50, if you're looking for games that are designed for adult enter- 
tainment, rather than the "zap the aliens" variety that most youngsters 
prefer .. . if you're interested in livening up your next party with some 
truly unique computer entertainment , . . or if you'd like to improve your 
programming expertise while playing computer games, then this is the 
book you ve been waiting for! 

David W. Chance is a computer programmer who has written 
many game programs for a variety of computer systems. He is the 
author of TAB's 33 Challenging Computer Games for the TRS-80'/ 
Apple "/PET*. 
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